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FRONT RUNNER: Relaaax... 

by Peter J. Favaro 

This program offers an easy, highly ac- 
cessible system for relieving the tension 
that builds up after a long day at the com- 
puter, or over a hot stove cooking dinner 
for the family. After you learn hov\/ to use 
Relaaax..., you can exorcise tension 
whenever necessary 
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DV BONUS PROGRAM: Chemistry Assistant 

by Art V. Cestaro III 

If you hate to look up common 
chemistry formulas this program Is for 
you. It makes changing grams to moles 
and finding density as much a piece of 
cake as calculating square roots, and 
frees you to solve the real problems of 
chemistry study 

Math Quiz 

by Jerry P. Wald 

Math drills will become a llesure time 
activity when your child boots this pro- 
gram and plays his way to math facts 
mastery 

ADVENTURE DISK and CASSETTE BONUS: 
SoftSlde Adventure Series: High School 

by David Pleacher 

Anyone who ever went to high school 
knows what an adventure that was and Is. 
Play the grade games and peer-group 
games, and wend your way through this 
simulation of one of llfes great adven- 
tures 

General Information 

and System Requirements 
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by Peter J. Favaro 

with Richard IVI. O'Brien, Ph.D 



I NOTE: Tape users should 

type in and swat the listings 
as shown and then when the 
swat codes match, make the 
following line changes: 

Relax tape version line change. 

270 IF R=flSC("R") THEN CLOSE INI: POKE 
559, NO: POKE 764,12:CL0AD 

Review tape version line change. 

280 IF R=ASC("E") THEN CLOSE INI: POKE 
559. NO: GRAPHICS NO:? "REHIND TAPE TO 
RELAX' i TYPE CLOAD":END 




Relaaax... Is a recreational program for an Atari® with 32K RAM. 
Review requires 24K RAM. 



Please read the instructions before booting up the program. 
Removing distractions and sources of tension, such as glare 
on the screen, is essential to successful results. Turn down the 
brightness on your monitor to reduce eyestrain. 



If you spend hours and hours in front of your television set or monitor play- 
ing games, hacking away or telecommunicating (so who doesn't?), you prob- 
ably leave those sessions with assorted aches and pains. They may be as mild as 
a slight headache or as serious as a stiff neck which lasts for days. Stress, color 
saturation, unnatural sitting positions, and fatigue are the likely culprits 
responsible for these annoyances, usually related to a straining of one or more 
muscle groups. A hot bath or a nice massage often is a good solution to these 
problems, but when they are impractical or unavailable you can use your com- 
puter (and Relaaax...) to help you relieve the tension it has helped to create. 
With this series of programs, you can learn to relax after any stressful situation 
Ukely to manifest itself in the muscles. 

Nothing about relaxation training is magically curative. The effectiveness of 
any relaxation training method is related to how well the person involved can 
take instruction and wants to relax. The techniques presented in this series of 
programs are derived from hypnosis and behavioral relaxation procedures. 
Relaaax... has some advantages over both of them — you can do it in the 
privacy of your own home, in comfortable surroundings (or even at your ter- 
minal in your office) and it doesn't cost $50 an hour. 



Relaxation Theory and Practice 

The actual techniques and text were derived from methods developed by 
psychologists Thomas C. Simek and Richard M. O'Brien, and presented in 
their book, Total Golf (Doubleday and Co.)- They describe a uniquely in- 
teresting approach to improving your golf game: coupling the process of 
swinging the club with behavioral and psychological techniques such as relaxa- 
tion training. 

The theory is rather simple. When we experience stress, the muscles begin to 
ache. Relaxation cannot take place unless you learn to relax the muscles. This 
can, of course, be accomplished with drugs, by physically manipulating the 
muscles through massage, or by applying heat to the strained area. Another 
way to relieve muscular tension is by cueing yourself to focus on the changes 
you feel when you deliberatley tense up and relax. Knowing what the body's 
response is, you can train yourself to respond to these cues consciously. When 
usng this relaxation program, you will tense specific parts of your body in se- 
quence. Then, sounds and pictures will cue you to relax these parts. By focus- 
ing on the different feelings produced in the tension cycle and in the relaxation 
cycle, and associating the relaxation response with the cues, you should be able 
to train yourself in a short time. 



Beginning To Relax 

Adequate preparation of yourself and the immediate environment is impor- 
tant. It could mean the difference between success and failure. First, remove 
any of the contributing causes of eye strain, such as bright lights. You should 
always practice the following precautions before any long computing session. 
They are extremely important to keep in mind when using this program; 

• Make sure no glare is reflecting off your monitor. Sources can be either 
natural or artificial light — a nearby lamp, or sunlight from a window. 

• Position yourself in front of the monitor so you don't have to tilt your 
head and cause strain on the neck muscles. 

• Adjust the contrast and brightness on your screen so the colors are flat and 
uniform. 

• Seat yourself in a chair that is firm, yet comfortable, preferably one with 
arms. Place your feet firmly on the floor. 

• Position yourself two and one-half to three feet from your monitor. 

You should be aware of three more precautions before you begin. First, if 
you wear hard contact lenses, please remove them. Second, if you have chronic 
back trouble or musculo-skeletal disease, talk to your physician before using 
this program. Last, you should not use this program if you have damaged your 
muscles through injury such as a pull, or a tear. 



Relaaaxing... 

The first thing you will see when you boot up the relaxation program is the 
initialization message. The screen will do nothing for thirty seconds or so. 
Next, the options menu will appear. Choice "E" stands for "Entire 
Program." It runs on 32K machines (the text uses a lot of memory), and is 
a tutorial to- help you learn the instructions as you go along. The goal is to 
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teach you well enough so you don't have to read them every time you use the 
program. Four or five sessions are sufficient for most people. To the right of 
the text is a human figure. When the text explains which part of your body to 
focus on, the figure's corresponding muscle group lights up. The program 
organizes the muscles into four groups: 

• Hands, Biceps and Triceps 

• Forehead, Nasal Area and Mouth 

• Neck, Shoulders and Stomach 

• Thighs, Calves and Feet 

A letter appears near the muscle group to remind you which particular muscle 
you are working on. All of this gradually weans you away from the text by cue- 
ing you. 

Auditory cues reinforce these visual cues. Distinctly different pitches signal 
each of the main muscle groups. Then one, two or three higher pitches tell you 
whether you should work on the first, second or third muscle in the group. 
For instance, the tone for relaxing the hands is middle C, followed by a single 
tone of lower pitch, which tells you to work on the first group, first muscle. 
After using the program a few times, you will be able to sit in front of the com- 
puter with your eyes closed and cue yourself only by the tones. 

The "R" option, "Review Sequence," presents the visual and auditory 
cues, but no text. This runs in 24K and is the option you should use after you 
have learned the basic instructions. Those who do not have enough memory to 
use the entire program can learn by looking at the pictures and captions in the 
printed magazine, and following the visual and auditory cues. With both the 
"R" and "E" options, the only contact you need to have with the computer is 
to tap the joystick in any direction to flip the text or drive the program. When 
the screen says "Tense," contract the muscle before you tap the stick. 



AAAUUUMMM... 

The "D" menu option is a program called the "Deep Breathing Trainer." 
Use it to develop a deep and rhythmic breathing pattern. Simply hold the 
joystick in your lap. As you exhale, move the stick forward; as you inhale 
move the stick back. Feedback on the screen is in the form of a graph. By watch- 
ing the line peak and dip you can develop a deep and even breathing pattern. 
Try it! 



Digital Seasliore 

The final option, "O", stands for "Ocean Sounds," a fancy white noise 
generator which simulates several beach and ocean sounds. Use this to help 
you conjure up relaxing images, or keep this program on low to help block out 
annoying "city sounds" or background sounds. White noise, like white light, 
is the presence of all frequencies in equal proportions. Its effect is to wash out, 
or mask, other sounds. Research suggests that white noise, and variations of it 
called pink noise, have a relaxing influence. Several department stores offer 
noise generators — at prices up to $60 — that do much less than this program. 
Please keep the volume low on your television or external speaker — there's no 
need to tense yourself up with thundering ocean sounds after you've just relaxed. 
Aim for the sound of the tide coming in, rather than a storm at sea. 



Self-Suggestion 

Self-suggestion is an important part of these programs. When using the 
relaxation training program you will notice a grey bar at the bottom of the 
screen. During the relaxation phase of the exercises, you should concentrate 
your attention on the bar. As the bar gradually fades into the background, 
repeat positive statements to yourself. Let your body become more and more 
relaxed as the bar gets darker and darker. With each decreasing shade of inten- 
sity let yourself feel looser and limper. You may need some practice, but you 
will find self-suggestion an essential part of using the relaxation program. 

I won't go into detail about the programs themselves, since they all utilize 
elementary programming techniques which are described in Sof (Side's tutorial 
articles. If you are interested in any of the sound generation techniques, the 
character set graphics or bit-mapping used in the deep breathing program, 
write to me at SoftSide and I'll be glad to help you if I can. Enjoy the Relaxa- 
tion Training System, and look for modifications and enhancements in future 



Peter J. Favaro is a school psychologist and wUl receive his 
doctorate in School and Clinical Psychology from Hofstra 
University in August. He also teaches psychology at Hofstra and 
is an educational and recreational video game design consultant. 

Richard M. O'Brien, Ph.D. is a clinical psychologist and pro- 
fessor of psychology at Hofstra University. He has worked exten- 
sively in the areas of industrial and sports psychology and is the 
author of Total Golf (Doubleday and Co.) as well as Industrial 
Behavior Modification: A Learning Based Approach to Business 
Management (Doubleday and Co.). 



Variables 



B: Location of alternate character 

set. 

B: Location of alt. character set. 

BL: Variable which holds the 

number of times to print blank 

lines to erase text. 

D: Causes tone to ring N number 

of times. 

DELAY: Variable controlling fade 

of timer bar. 

DL: Tone envelope for auditory 

cues. 

DX, DY: Coordinates of chart. 

E2, E3: Number of bytes to output 

to the screen. 

ND: Clears sound register 0. 

PSE: Delay to keep title page on 

screen and delay loop variable. 



R: Response from menu choice, 

machine-language scroll routine, 

and one of five random "wave" 

sounds. 

S$, TXT$, A, B, CBASE, I, MM, 

MN: Variables which allocate 

memory for character set and 

define character set via string 

techniques. 

SA: Start address of screen write 

memory. 

ST: Joystick zero. 

START: Bit map variable. 

STRIG (NO): Joystick (0) trigger. 

TIME: Length of time to sound 

"wave." 

TIMES: Number of times to plot a 

star. 

X, Y: Coordinates of X axis. 
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SS SS SS SS SS SS SS SS SS SS 3S 

SS SS 

SS Atari BASIC SS 

SS 'Relax' SS 

SS Authors: Peter J. Favaro SS 

SS Richard M. O'Brien, Ph.D. SS 

SS Copyright © 19B3 SS 

SS SoftSide Publications, Inc SS 

SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

If you don't wish to type this program, It Is 
available on issue #43 SoftSide DV and CV. 

100 ? CHR«<125):? "INITIALIZIN6, ONE « 
ONENT PLEASE":N0=0:Nl=l:N2=2:Ni=6:N7=7 
:N8=8:N16=!6:N17=17:N2210=2210 
no N2320=2320:N2340=2340!DII1 S$U024) 
,TXT$(l):A=ADR(S$):B=INT(A/512+Nl)tN2: 
CBASE=B»25A-A+NI ! S« (Nl ) =CHR< (NO) 
120 St(1024)=CHR»(NO):S*(N2)=S$(Nl);F0 
R I=NO TO 5!1:S»(CBASE+I,CBASE+I)=CHR$ 
(PEEK (I+573M)): NEXT 1 
130 RESTORE ;FOR I=NO TO 41:READ R:POK 
E UM+I,R:NEXT I:HI1=24!NN=31 
140 IF HN>120 THEN 160 
150 FOR 1=1111 TO NN:READ NjStd+CBASE.I 
+CBASE) =CHR$ (N) : NEXT I : HN=NI1+N8:NN=NN+ 
NB:SOTO 140 
160 HH=208:NN=215 
170 IF M«>256 THEN 190 
180 FOR I=I1M TO NN:READ N:S*(I+CBASE,I 
+CBASE) =CHR« (N) : NEXT I ; HH=flN+N8; NN=NN+ 
N8;60T0 170 
190 HM=464;NN=471 
200 IF MN>479 THEN 220 
21.0 FOR I=HM TO NN:READ N:S»(I+CflASE,I 
+CBASE)=CHR«(N1:NEXT I:I1«=»N+N8:NN=NN+ 
NS:60T0 200 
220 REM 

230 GRAPHICS 18:P0KE 756,B:SETC0L0R NO 
,N0,N6!PQSIT10N Nl.NO:? #N6!"RELAXATI0 
N TRAINER":? iN6;" »>OPTIONS HENU)))' 
240 ? *N6;' mmHiiiiiiiWi? iN6; 
■ L REVIEN SEQUENCE":? #H6;" e. ENTIRE 
PROBRAN":? IN6;' d DEEP BREATH I NB" 
250 ? IN6;" TRAINER":? #N6;' ^ OCEAN 
SOUNDS':? «N6:? tlN6;" 9333S39)9a33M3 
J3J":? IIN6;" ENTER CHOICE" 



260 CLOSE *N1:0PEN »N1,4,N0,"K":GET IN 

1,R:IF R=ASC("E") THEN CLOSE «N!:GOTO 

300 

270 IF R=ASC("R") THEN CLOSE #N1:P0KE 

559,N0:RUN "D:REVIEN" 

280 IF R=ASC("D") THEN CLOSE «N1:G0T0 

2370 

290 IF R=ASC("0") THEN CLOSE «Nl;GaTO 

2570 

300 REM 

310 GRAPHICS 18:P0KE 756,B:SETC0L0R NO 

,4,N8:SETC0L0R N1,4,N6:SETC0L0R N2,N0, 

N6:P0SITI0N 9,3;? #Nt;"#" 

320 POSITION NB,4:? tN6;"7.»!i";P0SITiaN 

N8,5;? IN6i"'()*";P0SITI0N N8,N6:? #N 
6;'+,-":P0SITI0N 9,N7:? iN6!"./" 
330 POSITION N8,N8:? «N6i":;<":P0SITI0 
N NljNO;? #N6! 'relaxation trainer';? t 
N6:? IN6!" FULL RELAXATION" 
340 POSITION N6,10:? »N6!"PR06RAH":? I 
N6j» ===£===£==========" -FOR PSE=N1 TO 

1500:NEXT PSE 
350 GRAPHICS 18;SETC0L0R N0,N0,N6:P0SI 
TION N2,N2:? #N6)'THIS PROGRAM IS':? « 
N6:? IN6;" DESIGNED TO HELP" 

360 ? »N6:? «N6i" YOU LEARN TO RELAX." 
:60SUB N2210:G0SUB 2330 

370 POSITION 4,N2;? «N6!"PLEASE READ": 
? tN6:? IN6|" THE DOCUMENTATION":? »N 
6:? #N6;' BEFORE ATTEMPTING' 
380 POSITION 5,N8:? »N6;'T0 USE IT.'sB 
OSUB N2210:60SUB 2330 





390 POSITION 5,5:? #N6;"LET'S BEBIN":B 
OSUB N2210:G0SUB 2330 
400 GRAPHICS 18: POKE 756,B:SETCOL0R N2 
,4,N8:SETCOL0R NO,N0,N6:6OSUB 2300:605 
LIB 1950 

410 POSITION Nl.Nl:? «N6; "FIRST LET US 
":? #N6:? »N6i' BECOME FANILIAR":? «N6 
:? «N6!" MITH THE" 

420 ? »Ni!? «Ni;" SCREEN? ":80SUB N2210 
iGDSUB 2310:P0SITI0N Nl.Nl:? »N6;"0N T 
HE RIGHT":? KN6:? «N6;' SIDE OF THE' 
430 ? ttNi:? IN6i" SCREEN THERE":? ttNi: 
? #Ni!" IS A FIGURE?" :GOSUB N2210:60SU 
8 2310 
440 POSITION N1,N1:? «N6i"TEXT WILL";? 

tINi:? «Ni;" APPEAR TO THE":? Mb:? IN 
6;" LEFT OF THE" 

450 ? «Ni:? iINi;" F1GURE?":G0SUB N2210 
:G0SUB 2310:POSIT10N N1,N1:? »N6;"AT T 
HE BOTTOH' 

460 ? «N6:? IH6;" OF THE SCREEN":? IN6 
:? #N6;" THERE IS A";? INt:? #N6;" GRE 
Y TIMER BAR?":SOSUB N2210:E0SUB 2310 
470 POSITION N1,N1:? IN6;"THE FIRST FE 
W":? «Ni:? IN6;" TIMES THAT YDU";? iHb 
:? INi;" USE THIS" 
480 ? »N6:? IN6;" PROGRAM VOU":? «Nt:? 

«N4;" WILL NEED TO":.GOSUB N2210:GOSUB 

2310 
490 POSITION Nl.Nl:? #N6.!"FAy CLOSE":? 

#N4:? IN6;" ATTENTION TO":? «N6:? #N6 
:" THE TEXT?" 



500 ? iN4:? »N6i" AFTER A WHILE";? »N6 

:? «N6;" VOU WILL LEARN'jGOSUB N2210:B 

OSUB 2310 

510 POSITION NljNl:? «N6;"THE RELAXATI 

ON':? INi:? #Ni;" INSTRUCTIONS":? IN6; 

? #N6;" AND VOU MILL" 

520 ? #N6:? «N6;" ONLV NEED TO":? IN6: 

? INi;" LOOK AT THE";60SUB N2210:60SUB 

2310 
530 POSITION Nl.Nl:? IN6; "FIGURE AND"; 
? #N6:? ilN6;" LISTEN TO THE";? «N6;? t 
N6;" AUDITORY CUES" 

540 ? #N6;? «N6;" TO DO THE";? ilNi:? « 
N6j" EXERCISES?":60SUB N2210:60SUB 231 
0:POSITION N1,N1;? #N6;»T0 PREPARE" 
550 ? #N6:? #N6;" TRY TO";? IN6:? #Ni; 
" IMAGINE A":? IN6:? «N6;" TRANQUIL";? 
«N6:? #N6;" SCENE?" 

560 60SUB H2210:60SUB 2310:P0SITI0N Nl 
,N1:? iN6! "CONCENTRATE":? iN6:? iNfcs" 
ON THIS" 

570 ? #N6:? *N6j" SCENE AND»;60SUB N22 
I0:BOSUB 2310:PQSITION N1,N1:? »N6i"0N 
YOUR':? «N6:? »Ni!i;" BREATHING SO" 
580 ? »Ni;? «N6;" IT IS DEEP";? «N6;? 
#N6!" AND RHVTHHIC? ":BQSUB N22!0:80SUB 

2310 
590 POSITION Nl.Nl:? «N6;»CL0SE YOUR": 
? iN6:? «N6!" EYES AND ":? «N6:? tNi; 
" THEN OPEN" 

600 ? «N6:? «N6;" THEM AGAIN AT":? «N6 
:? itN6;" THE TONE?" 

610 GOSUB N2210:G0SUB 2310;60SUB N2340 
;GOSUB 2300;SETCOLOR N0,N0,N6;P0SITI0N 
Nl.Nl:? tN6; "THE FIRST 
620 ? »N6!" MUSCLE GROUP":? iN6:? IN6; 
" VOU WILL RELAX":? iN6:? «N6;" IS THE 
": GOSUB N2210; GOSUB 2310 
630 POSITION N1,N1:? «N6; " HANDS BICEPS 
•:? «N6:? »N6;" AND TRICEPS ";? IN6;? 
IN6;" GROUP?" 



640 POSITION N16,4;? IN6j "7.": POSITION 
N16,5:? «N6!"'":P0SITI0N N16,N6:? iU; 

650 POSITION 18,4:? IN6;"8(":P0SITI0N 1 
8,5:? «N6;")r:60SUB N2210 
660 GOSUB N2320:P0SITIQN N1,N1:? *N6i" 
THIS TONE WILL":? IN6;? «N6;" SIGNAL Y 
OU TO"!? «N6:? «N6i' PREPARE TO" 
RELAAAX ^ 
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670 ? »N6:? «N6;" RELAX THIS':? «N6:? 
IN6!" GR0UP?":60SUB N2210:G0SUB N2320: 
fiOSUB 2290 

m POSITION Nl.Nl:? «N6i'BE61N «ITH T 
HE":? INi:? IN6;" HANDS? THIS":? »N4:? 

)IN6i" TONE SIGNALS" 

690 ? tlN6:? «N6;" YOU TO FOCUS":? #Ni: 
? «N6;" ON YOUR HANDS?":POSITI0N 15, N6 
:? #N6;"h":G0SUB N2210 
700 GDSUB N2320:GQSUB 2290:GOSUB 22B0; 
POSITION Nl.Nl:? «N6;"TEHSE THE HANDS" 
:? IN6:? »N6;" AND WRISTS BY" 
710 ? »N6:? »N6;" SQUEEZING YOUR":? IN 
6:? tN6i" HANDS HARD?»:GOSUB N2210 
720 BOSUB N2320:PQSITIQN N1,N1:? INA;" 
FEEL THE":? »N6:? ttNi;" TENSION IN YOU 
fl":? «N6:? »N6|" FINGERS WRISTS" 
730 ? IN6:? «N6i" AND THE BACKS":? UNA 
:? ttN6;" OF YOUR HANDS?":GOSUB N2210 
740 GDSUB N2320:P0SITI0N Nl.Nl:? tNii" 
FEEL THE":? )tN6:? »N6!" TENSION FOR":? 

»N6:? »N6;" ABOUT 5 SECS?" 
750 ? INA:? JN6;" RELEASE THE":? «N6:? 

SN6;" TENSION SLOWLY?" :60SUB N2210 
760 GDSUB N2320:P0SITI0N Nl.Nl:? »N6;" 
ENJOY FEELING":? SN6:? «N6;" RELAXED?" 
:? #N6:? »N6;" AS THE BAR" 
770 ? «N6:? «N6;" GETS DARKER";? tNA;? 

«N6;" LET YOURSELF': BOSUB N2210:G0SUB 

N2320:P0SITI0N Nl.Nl:? JN6;"BEC0NE" 
7B0 ? »N6:? #N6;" MORE AND MORE':? *N6 
:? «N6;" RELAXED ?": GDSUB N2210: GDSUB N 
2320:60SUB N2340:SETC0L0R N0,N0,N6 
790 GDSUB 1970;60SUB N2210:G0SUB N2320 

: GDSUB 2290:60SUB 22B0:60SUB N2340:SET 
CDLDR N0,N0,N6:60BUB N2320 
BOO POSITION Nl.Nl:? »N6!"N0H YOU HILL 
":? *N6:? SN6j" LEARN HOW TO":? tlN6:? 
#N6;" RELAX THE" 

810 ? *N6:? ltN6;' BICEPS?": POSIT ION 15 
,N6:? «N6|"b":G0SUB N2210:G0SUB N2320: 
POSITION Nl.Nl:? «N6;"THIS" 
820 ? «N6:? «N6;" TONE WILL ":? #N6:? 
»N6.!" SIGNAL YOU TO":? *N6:? iN6i" REL 
AX THE":? «N6:? #N6i" BICEPS?" 
830 GOSUB N2210: GDSUB N2320:60SUB 2290 
:BQSUB 2260:PDSITION Nl.Nl:? »N6!"THIS 
IS DONE":? «N6:? IN6;" BY SQUEEZING" 
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840 ? »N6:? «N6;" THE BICEPS":? #N6:? 
(IN6;" THE WAY YOU DO":? IN6:? «N6i" HH 
EN SOMEONE": GOSUB N2210:G0SUB N2320 
850 POSITION N1,N1:? IN6i°SAYS???":? # 
N6:? «N6;» MAKE A MUSCLE ?";? «N6:? iN6 
;" DO NOT MAKE" 

860 ? IN6:? »N6;" A FIST WITH":? »N6:? 
«N6j" YOUR HANDS?":GOSUB N2210:B0SUB 
N2320 

870 POSITION Nl.Nl:? #N6;»BE SURE TO": 
? »N6:? #N6;" REMEMBER TO":? IN6:? »N6 
;" DO THIS WITH" 

880 ? »N6:? IN6; " BOTH ARMS?":GOSUB N2 
210:G0SUB N2320:P0SIT!0N N1,N1:? IN6;" 
NOW LET THE" 

890 ? »N6:? #N6i" BICEPS RELAX ?";? »N6 
:? «N6!" MOVE THE STICK';? «N6;? tN6;" 
AND FOCUS ON" 

900 ? «N6;? itN6;" THE BAR???":GOSUB N2 
210:G0SUB N2320:G0SUB N2340:SETC0L0R N 
0, NO, N6: GDSUB 1970 

910 GOSUB N2210:60SUB N2320:GDSUB 2290 
;6DSUB 2260:6DSL1B N2340;G0SUB N2320:SE 
TCOLOR N0,N0,N6 

920 POSITION N1,N1:? iN6i»N0W YOU WILL 
":? itN6:? »N6;" RELAX THE ":? «N6:? IN 
6;" TRICEPS AND" 

930 ? IN6;? #N6;" TOPS OF THE';? itN6;? 
«N6i° FOREARMS? ": POSIT ION 15, N6:? »N6 
;'t":POSITION 15, N7:? IN6;'r 
940 GOSUB N2210:G0SUB N2320:P0SITI0N N 
1,N1:? «N6;"TH1S TONE HILL":? «N6:? IN 
6; " SIGNAL YOU TO" 

950 ? IN6;? 1N6;" RELAX THE ":? «N6;? 
IN6;" TRICEPS AND":? IN6:? IN6;" UPPER 
FOREARMS ?" 
960 GOSUB N2210:G0SUB N2320:G0SUB 2290 
iGOSUB 2240:P0SITI0N N1,N1:? IN6;"T0 F 
EEL WHAT IT" 

970 ? IN6:? #N6;" IS LIKE TO':? iN6:? 
IN6;" TENSE THESE":? IN6:? «N6;" MUSCL 
ES PRESS":? IN6:? IN6;« YOUR ARMS" 
980 GOSUB N2210:60SUB N2320:P0SITION N 
l.NI;? IN6;"FACE UP INTO';? IN6:? IN6i 
" THE ARMS OF A" 

990 ? IN6;? »H6;" CHftIR? FEEL"-.? Wk-.l 
«N6i" THE TENSION':? IN6;? IN6i" FOR 
ABOUT 5 SECS?" 



1000 BOSUB N2Z10:60SIIB N2320;P0SITI0N 
15,9:? IN6;" "-.POSITION 15,N7:? IN6 

I u n 
! 

1010 POSITION Nl.Nl:? #N6;"N0W RELAX?? 
?"!? #N6:? IN6;" LET YOURSELF":? «N6:? 

IN6;" RELAX EVEN" 

1020 SDSUB N2210:S0SUB N2320: POSIT ION 
Nl.Nl:? IN6;"HQRE AS THE BAR":? *Nb;? 
m\' SETS DARKER" 

1030 ? »N6:? »N6;» AND DARKER?":? »N6: 
? #Ni;" PLEASE MOVE" 
1040 ? «N6:? ilN6;" THE STICK?": BOSUB N 
2210:60SUB N2320:SOSUB N2340:S0SUB N23 
20: BOSUB 1970 

1050 BOSUB N2210:G0SUB N2320; BOSUB 229 
0;BOSUB 22A0:G0SUB N2340:60SUB N2320 
1060 POSITION N17,3:? #N6;»»':POS1T10N 

Nl.Nl!? »N6;"N0N VOU «ILL":POSITION N 
li,4:? IN6;"m" 

1070 POSITION N16,5:? t)N6;" () f:POSIT 
ION N16,N6:? »N6;"±";PQS1TI0N Nl,3:? « 
N6i "LEARN HOW TO" 
1080 ? »N6:? IN6;" RELAX THE ":? IN6:? 

#N6i" FOREHEAD NOSE':? INi:? «N6;" AN 
D NOUTH ?":GOSUB N2210 
1090 BOSUB N2320:P0SITI0N Nl,Nli? «N6! 
"THIS TONE HILL":? IN6:? #Nii" SIGNAL 
YOU TO":? INi:? ♦N6;" PREPARE TO" 
1100 ? IN6:? IN6;" RELAX THIS":? *N6:? 

♦Ni;" HUSCLE 6R0UP?":6OSUB N2210:BOSU 
B N2320:G0SUB 2150 

1110 POSITION 15,3:? #N6;"f :POSITION 
N1,N1:? tN6;"THIS TONE WILL":? »N6:? » 
N6!' SIGNAL YOU TO" 




1120 ? INi:? iHb;' RELAX THE":? IN6:? 
INt;" FOREHEAD ?";eOSUB N2210:G0SUB N23 
20: BOSUB 2150:60SUB 2160 
1130 POSITION N1,N1;? ♦N6!"TENSE THE": 
? IN6:? iN6;" FOREHEAD BY';? iN6!? «N6 
;■ FR0HNIN8 HARD" 

il40 ? «N6:? IN6!" HOLD THE":? «N6:? I 
N6|" FROWN 5 SECS?":SOSUB N2210:G0SUB 
N2320:P0SITI0N N1,N1:? #N6i 'RELAX THE" 
1150 ? «Ni:? »N6;" FROWN AND":? IN6:? 
«N6!" ENJOY THE":? #N6:? «N6;" PLEASAN 
T" 

1160 ? IN6:? #N6i" SENSATI0N?":60SLIB N 
2210:B0SUB N2320:60SUB N2340:6flSUB N23 
20: BOSUB 1970 

1170 BOSUB N2210:60SUB N2320:B0SUE 215 
0:GOSUB 2160:B0SUB N2340:B0SUB N2320 
1180 POSITION 15,3:? «N6i"n":P0SITI0N 
N1,N!:? #N6;"THIS TONE WILL":? iN6:? # 
N6i" SIGNAL YOU TO" 

1190 ? »N6:? »NA;" PREPARE TO":? «N6;? 
itN6;" RELAX THE" 

1200 ? «N6:? »N6;" NOSE? ":60SUB N2210 
:60SUB N2320:S0SUB 2150:B0SUB 2170:P0S 
ITIQN Nl.Nl!? »N6;"FIRST TENSE" 
1210 ? IN6!? iN6!" THE MIDDLE OF":? #N 
6:? »N6;" YOUR FACE BY":? tN6:? #N6i" 
SCRUNCHINS UP" 

1220 ? »N6:? »N6;" THE NASAL AREA?": BO 
SUB N2210!G0BUB N2320: POSITION Nl.Nl:? 
#N6;»TRY TO KEEP" 

1230 ? IN6:? «N6i" THE FOREHEAD":? ♦N6 
!? »N6;" SMOOTH? TENSE";? #N6:? »N6;" 
THIS AREA FOR' 

1240 ? »N6:? *m-," ABOUT 5 SECS???":GO 
SUB N2210:BQSUB N2320;P0SITI0N N1,N1;? 
#N6i"N0W BE6IN" 

1250 ? #N6:? IN6;" TO RELAX":? IN6;? I 
N6;" THIS AREA OF":? #N6:? tNi;" YOUR 
FACE???" 

1260 BOSUB N2210!GOSUB N2320:B0SUB N23 
40!6QSUB N2320:G0SUB 1970 
1270 GOSUB N2210;60SUB N2320:B0SUB 215 
0;BOSUB 2170:60SUB N2340!G0SUB N2320 
1280 POSITION 15,3:? «N6!"i«":P0SITION 
N1,N1:? «N6;"THIS TONE WILL":? #NA:? t 
N6;" SIGNAL YOU TO" 

1290 ? tN6:? «N6;" PREPARE TO":? «N6:? 
«N6i" RELAX THE" 
RELAAAX 
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1300 ? «N6:? iU\- HOUTH AREA?":6QSUB 

N2210:60SUB N2320:60SUB 2150:60SUB 219 

OiPOSITIQN Nl.Nl:? «Ni;"TENSE THE' 

1310 ? IN6:? «N6i" HOUTH BY":? IN6:? I 

N4i" PRESSING THE":? INA:? «N6;' LIPS 

TOGETHER" 

1320 ? IN6:? tN6;" HflRD???":60SUB N221 

OjGOSUB N2320:POSITION M,9:P0SITI0N N 

l.Nl:? IN6;"H0LD THE " 

1330 ? «N6:? INb;" TENSION FOR":? tN6: 

? IN6j" ABOUT 5 SECS?":? IN6:? »N6;' T 

HEN LET" 

1340 ? IN6:? #N6;" YOURSELF???" :GOSUB 

N2210:60SUB N2320:60SUB N2340;60SUB H2 

320:60SUB 1970 

1350 GOSUB N2210:G0SUB N2320!60SUB 215 

0;60SUB 2190:60SUB N2340!G0SUB N2320 

13i0 POSITION N17,3:' IN6 ;"_!'! POSIT ION 

N16,4:? l«6i"X«i"tP0SITI0N N17,5:? IN 
6;"O":P0SITI0N Nl.Nl 
1370 ? «N6;"N0« YOU KILL":? «N6:? IN6; 
■ LEARN HOK TO":? «Ni:? INfc;" RELAX TH 
E ":' IN6:? «N6;" NECK SHOULDERS " 
1380 ? INt>:? IN6|" AND STOMACH ?" :GDSUB 

N2210:G0SUB N2320:P0S1T10N Nl.Nl:? »N 
i;"THIS TONE HILL" 

1390 ? »N6:? »N6;" SIGNAL YOU TO":? IN 
i!? INi;" PREPARE TO":? »N6:? «Ni;" RE 
LAX THIS" 

1400 ? IN6:? ilN6i" MUSCLE GROUP?" :6DSU 
B N2210!G0SUB N2320!GOSUB 1990:P0SITI0 
N 15,3;? #N6i»n" 

1410 POSITION N1,N1:? «Ni;"THIS TONE N 
ILL":? »N6:? #N6:" SIGNAL YOU TO":? «N 



RELAAAX 



10 



6:? IN6,- 


" PREPARE TO" 




^i 


( 


s^3 


J^% 



1420 ? IN6:? IN6i° RELAX THE":? IN6:? 
IN6;" NECK HUSCLES?": GOSUB N2210:60SUB 
N2320: GOSUB 1990: GOSUB 2010 

1430 POSITION N1,N1:? «N6!"TENSE THE": 

? »N6:? tNij" NECK BY":? «N6:? IN6;" P 

LACING A HAND" 

1440 ? INA:? IN6;" AGAINST YOUR":? IN6 

:? «N6;" FOREHEAD AND":60SUB N221O:G0S 

UB N2320 

1450 POSITION Nl.Nl:? iN6;"PRESSING YD 

UR":? INi:? tlNi;" HEAD INTO YOUR":? IN 

i:? *N6:" HAND? DO THIS" 

1460 ? «N6:? KNi; " FOR 5 SECS?":? »N6: 

? IN6;' THEN ???":GOSUB N2210;G0SUB N2 

320:G0SUB N2340:G0SUB N2320:S0SUB 1970 

1470 BOSUB N2210:eOSUB N2320:G0SUB 199 

0:G0SUB 2010:G0SUB N2340:G0SUB N2320 

1480 POSITION 13,5:? #N6i"sh":P0SlTI0N 

Nl.Nl:? «N6;"THIS TONE WILL":? »N6:? 
«N6;" SIGNAL YOU TO" 
1490 ? »Ni;? IN6;" PREPARE TO":? »N6:? 

«N6;" RELAX THE" 

1500 ? ltN6!'' #NA!" SHOULDERS?" iSOSUB N 
22I0:G0SUB N2320: POSITION 13,5:? *N6i" 

": GOSUB 1990: GOSUB 2030 
1510 POSITION Nl.Nl:? «N6;"TENSE THE": 
? INi:? INi;" SHOULDERS BY":? INi;? IN 
i;" PUSHING THEM" 

1520 ? INi:? INi;" INTO YOUR":? «Ni:? 
INi;' CHAIR?";GOSUB N2210:G0SUB M2320: 
POSITION Nl.Nl:? INi;"HOLD THE " 
1530 ? INi:? INi;" TENSION FOR";? INi: 
? INi;" ABOUT 5 SECS?":? INi;? INi;" T 
HEN LET" 

1540 ? INi:? INi;" YOURSELF???°:SOSUB 
N2210: GOSUB N2320; GOSUB N2340: GOSUB N2 
320 
1550 POSITION 13,5:? INi;"st";POSITION 

N1,N1:? INi;'THIS TONE MILL':? INi:? 
INi;' SIGNAL YOU TO" 
15i0 ? INi:? INi;" PREPARE TO":? INi;? 

INi;" RELAX THE" 

1570 ? INi:? INi;' STOMACH ?'; GOSUB N22 
10:GOSUB N2320; POSITION 15,3:? INi;" 
": GOSUB 1990: GOSUB 2050 
1580 POSITION Hl,m:? INi;"TE«SE 1HE": 
? INi:? INi;" STOMACH BY";? INi:? INi 
i" SUCKING IN" 




1590 ? #N6:? IN6;" THE STOMACH"!? «N6: 
? iN4;" HARD?":60SUB N2210:G0SUB N2320 
!POSITION Nl.Nl:? «Nij"HOLD THE " 
1600 ? IN6i? IN6;' TENSION FOR":? tU: 
7 #Nij» ABOUT 5 SECS?";? *N6:? INij" T 
HEN LET" 

1610 ? IN6:? iN6;» YOURSELF???" :BOSUB 
N2210i60SUB N2320:60SUB N2!40:eOSU6 N2 
320:GDSUB 1970:GOSUB N2210 
1620 BOSUB N2320iBGSUB 1990iG0SUB 2050 
:BOSUB N2340!60SUB N2320 
1630 POSITION NI6,4:? »N6;"m"!P0SITI 
ON NI7,5!? IN6;"O.":P0SITI0N N16,N6!? 
»N6;"+,-" 

1640 POSITION N17,N7!? #N6j",/":P0SITI 
ON N16,N8:? #N6i°:i<":P0SITION Nl,Nl!? 
«N6;°N0M YOU WILL" 

1650 ? IN6!? »N6i° LEfiRN H0« TO":? tN6 
:? iNii" RELAX THE "i? #N6:? #N6;" M 
SHS CALVES " 

1660 ? IN6:? #N6|" AND FEET?"!GDSUB N2 
210:eDSUB N2320:P0SITI0N N1,N1:? »N6i" 
THIS TONE HILL" 

1670 ? IN6:? IN6i" SIGNAL YOU TO":? «N 
6:? «N6;" PREPARE TO":? IN6:? IN6!" RE 
LAX THIS" 

1680 ? «N6!? IN6i" MUSCLE GROUP? "!60SU 
B N2210:GOSUB N2320:B0SUB 2070:POSITIO 
N 15,N7:? IN6;"t" 



1690 POSITION Nl.Nl!? IN6;"THIS TONE III 

ILL"!? *Hb:7 IN6;" SIGNAL YOU T0»!? IN 

6:? IN6;" PREPARE TO" 

1700 ? IN6!? iN6;" RELAX THE":? IN6!? 

IN6i" THIGH MUSCLES?" :GOSUB N2210:B0SU 

B N2320:60SUB 207O:G0SUB 2090 

1710 POSITION Nl,Nl!? ♦N6;"TENSE THE": 

? IN6:? #N6;" THIGHS BY"!? IN6!? IN6i" 

STRETCHING" 

1720 ? IN6:? IN6j" YOUR LEGS OUT":? IN 
6:? «N6i' IN FRONT OF": BOSUB N2210!G0S 
UB N2320 

1730 POSITION Nl,Nl!? IN6i"Y0UR BODYA 
S"!? IH6:? tN6;" FAR AS YOU"i? iN6:? « 
N6;" CAN??? DO" 
1740 ? IN6:? «N6;" THIS FOR" 
1750 ? «N6:? IN6;" 5 SECS? THEN":GOSUB 

N2210!60SUB N2320!G0SUB N2340!G0SUB N 
2320:S0SUB 197O:G0SUB N2210 
1760 60SUB N2320:60SUB 2070!60SUB 2090 
!GOSUB N2340!G0SUB N2320 
1770 POSITION 15. N7:? *N6;"c"!P0SITI0N 

Nl.Nl:? iN6i°THis TONE NILL":? IN6!? 
♦N6|" SIGNAL YOU TO" 
1780 ? #N6!? IN6;" PREPARE TO":? «N6:? 

IN6i" RELAX THE" 

1790 ? iN6:? ♦N6i" CALF MUSCLES? "iSOSU 
B N2210!G0SUB N2320:GQSUB 2070:60SUB 2 
110:P0SITI0N Nl.Nl:? IN6;"TENSE THE" 
1800 ? «N6!? #N6!" CALVES BY':? IN6:? 
«N6;" RESTING YOUR":? #N6!? #N6i" HEEL 
S ON THE" 
1810 ? »N6:? IN6;" FLOOR HITH'iGOSUB N 
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2210:S0SUB N2320!POS1TION Nl.Nl:? tN6; 

■YOUR LEGS OUT" 

1820 ? »N6;? #N6i" IN FRONT OF':? »N6; 

? INi;" YOU? NOW DRftW"!? «N6!? IN6;" Y 

OUR FEET" 

1830 ? tN6:? IN6:" UP T0«ARD":60SUB N2 

210!eDSUB N2320:POSITION N1,N1:? IN6;" 

YOUR FACE???":? #N6:? ttNij" FEEL THE" 

1840 ? «Nii? INi;" TENSION AND";? »N6: 

? »N6;" THEN LET THESE" 

1850 ? IN6:? )tN6;" I1USCLES???":60SUB N 

221OJB0SUB N2320:S0SUB N2340:60SUB N23 

20 

1860 60SUB 1970;B0BUB N2210:60SUB N232 

0:GOSUB 2070:GOSUB 2110:60SUB N2340:G0 

SUB N2320 

1870 POSITION 15, N7:? INiiTiPOSITION 

Nl.Nl!? IN6;"THIS TONE NILL":? IN6:? 
IN6;" SIGNAL YOU TO" 
1880 ? ltN6:? «N6;" PREPARE TO"!? «N6:? 

«N6;" RELAX THE" 

1890 ? INi:? INi; " FOOT MUSCLES? ":GOSU 
B N2210;60SUB N2320:60SUB 2070;G0SLIB 2 
nOiPOSlTIQN Nl,Nl!? INi; "TENSE THE" 
1900 ? INi!? INi;" FEEl BY":? INi:? IN 
6;" CURLINB YOUR":? INi:? »N6;" TOES I 
NHARD" 

1910 ? INi:? INi;" AND SQUEEZING" :GOSU 
B N2210:60SUB N2320:POSITION NI,N1:? I 
Nt;"THEn HARD?" 

1920 ? INi:? INi;" TENSE THE":? INi:? 
♦Nii" FEET THIS WAY":? INi:? INi;" FOR 

ABOUT 5":? INi:? INi;" SECS? THEN???" 



RELAAAX 



12 




1930 BOSUB N2210!G0SUB N2320!B0SUB N23 
40:BOSUB N2320!60SUB 1970!GOSUB N2210: 
BOSUB N2320:60SUB 2070:60SUB 2130 
1940 BOSUB N2340:eOSUB N2320!B0T0 220 
1950 POSITION N17,3!? INi;"r!POSITION 

N16.4:? INi|"m":P0SITION Nli,5!? IN 
i;"'Or:PQSlTI0N Nli,Ni:? IN6j"V" 
19iU POSITION N17,N7:? INi;" J.": POSIT I 
ON Nli.NB:? IMi!"||<":POSITION Nl.ll:? 

»Ni; »==================" : RETURN 

1970 POSITION Nl.Nl:? INi;"REPEAT THE" 
:? INi:? INi;" TENSION ":? INi:? INi;" 
CYCLE? " 



INi;" 
TENSE 5 SECS?";RETU 



RELAXATION ";? INi: 

1980 ? INi!? INi;' 

RN 

1990 FOR DC=15 TO Nl STEP -Nl: SOUND MO 

,217,Ui,DC:S0UND N1,144,10,DC:F0R PSE= 

Nl TO 5:NEXT PSE:NEXT DC 

2000 SOUND NO, NO, NO, NO: SOUND Nl.NO.NO, 

NO:RETURN 

2010 FOR DC=15 TO Nl STEP -NhSOUND NO 

,108,10,DC:SOUND N1,72,10,DC:FOR PSE=N 

1 TO 5:NEXT PSE:NEXT DC 

2020 SOUND NO,NO,N0,NO!SOUND Nl.NO.NO, 

NO: RETURN 

2030 FOR D=N1 TO N2:F0R DC=15 TO Nl ST 

EP -NhSOUND N0,108,10,DC:S0UND Nl,72, 

10, DC: FOR PSE=N1 TO 5: NEXT PSE 

2040 NEXT DC:NEXT D:SOUND NO, NO, NO, NO: 

SOUND N1,NO,NO,NO!RETURN 

2050 FOR D=N1 TO 3:F0R DC=!5 TO Nl STE 

P -NhSOUND NO,10B,10,DC;SOUND Nl.72,1 

0, DC: FOR PSE=N1 TO 5: NEXT PSE 

20i0 NEXT DC:NEXT D:SOUND NO,NO,NO,NO! 

SOUND N1,NO,NO,NO!RETURN 

2070 FOR DC=15 TO Nl STEP -NhSOUND NO 

,243,10,DC:S0UND N1,193,10,DC;FOR PSE= 

N! TO 5!NEXT PSE:NEXT DC 

2080 SOUND NO,NO,NO,NO:SOUND Nl.NO.NO, 

NO: RETURN 

2090 FOR DC=15 TO Nl STEP -NhSOUND NO 

,121,10,DC:SDUND Nl,9i,10,DC:F0R PSE=N 

1 TO 5:NEXT PSE!NEXT DC 

2100 SOUND N0,NO,N0,N0:SOUND N1,N0,N0, 
NO: RETURN 

2110 FOR D=N1 TO N2!F0R DC=15 TO Nl ST 
EP -NhSOUND NO,I21,10,0C:SOUND Nl,9i, 
10,DC:F0R PSE=N1 TO 5!NEXT PSE 



2120 NEXT DC:NEXT D:SOUND NO,N0,N0,N0: 

SOUND Nl, NO, NO, NO: RETURN 

2130 FOR D=N1 TO SiFOR DC=15 TO Nl STE 

P -Nl-.SQUND NO,!21,10,DC:SOUND Nl,96,l 

O.DCrFOR PSE=N1 TO SzNEXT PSE 

2140 NEXT DC:NEXT D:SOUND NO,N0,NO,NO: 

SOUND Nl, NO, NO, NO: RETURN 

2150 .FOR DC=15 TO Nl STEP -N1:S0UND NO 

,217,10,DC:F0R PSE=N1 TO 5:NEXT PSE:NE 

XT DC:SOUND N0,N0,NO,NO:RETURN 

2U0 FOR DC=15 TO Nl STEP -NhSOUND NO 

,53.10,DC;F0R PSE=N1 TO 5:NEXT PSE:NEX 

T DC:SOUND N0,NO,NO,NO:RETURN 

2170 FOR D=N1 TO N2:F0R DC=15 TO Nl ST 

EP -NhSOUND N0,53,10,DC:F0R PSE=N1 TO 

5:NEXT PSEiNEXT DC 

2180 SOUND N0,NO,N0,NO:NEXT D:RETURN 
2190 FOR D=N1 TO 3: FOR DC=15 TO Nl STE 
P -NhSOUND N0,53,10,DC:F0R PSE=N1 TO 
5:NEXT PSE:NEXT DC 

2200 SOUND N0,NO.N0,N0;NEXT D;RETURN 
2210 ST=STICK(NO);IF ST=15 THEN GOTO N 
2210 

2220 IF STICK(N0)<>15 THEN 2220 
2230 FOR PSE=N1 TO 25; NEXT PSE: POKE 77 
, NO: RETURN 

2240 FOR D=N1 TO 3; FOR DC=15 TO Nl STE 
P -NhSOUND N0,29,10,DC:F0R PSE=N1 TO 
5: NEXT PSE: NEXT DC 

2250 SOUND NO, NO, NO, NO: NEXT D:RETURN 
22i0 FOR D=N1 TO N2:F0R DC=15 TO Nl ST 
EP -NhSOUND N0,29,10,DC:F0R PSE=N1 TO 

5: NEXT PSE: NEXT DC 

2270 SOUND NO,N0,NO,N0;NEXT D;RETURN 
2280 FOR DC=15 TO Nl STEP -NhSOUND NO 
,29,10,DC:F0R PSE=N1 TO 5:NEXT PSE;NEX 
T DC:SOUND NO,NO,NO,N0:RETURN 
2290 FOR DC=15 TO Nl STEP -NhSOUND NO 
,121,10,DC:F0R PSE=N1 TO 5:NEXT PSE:NE 
XT DC:SOUND NO,NO,NO,NO;RETURN 
2300 FOR DC=15 TO Nl STEP -NhSOUND NO 
,50,10,DC:F0R PSE=N1 TO 5:NEXT PSE:NEX 
T DC:SOUND NO,NO,NO,N0:RETURN 
2310 FOR BL=N1 TO 9;P0SITI0N N0,BL:? « 
N6;" ";NEXT BL:RETURN 

2320 FOR BL=N1 TO 9:P0SITI0N NO.BL:? 
Ni;" ":NEXT BL:RETURN 

2330 ? »N6jCHR$(125):RETURN 
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2340 POSITION 5,5:? IN6; "RELAX" 
2350 N=N6:F0R DELflY=Nl TO 600:SETCOLOR 
NO, NO, N: IF DELAY=200 OR DELfiY=400 OR 
DELAY=550 THEN N=N-N2 
23i0 SETCOLOR N0,N0,N:NEXT DELAY:SETCO 
LOR NO, NO, Ni: RETURN 
2370 GRAPHICS Ni:DX=3hDY=35: COLOR Nl: 
PLOT 26,NhDRAMT0 31,Nl:DRfl«T0 31,70:D 

RA«TO 26, 70: POKE 53277, N2 

2380 X=NhY=Nl:TXT*="E":60SUB 2470 

2390 X=NhY=50:TXT»="r:BOSUB 2470 

2400 ST=STICK(NO):TR=STRIG(NO) 

2410 IF ST=15 AND TR=NO THEN 220 

2420 IF ST=13 THEN DX=DX+N1:IF DY<70 T 

HEN DY=DY+N1 

2430 IF ST=14 THEN DX=DX+NhIF DY>N1 T 

HEN DY=0Y-N1 

2440 IF ST<13 OR ST=15 THEN 2400 

2450 PLOT DX,DY:IF DX<150 THEN FOR PSE 

=N2 TO N6;NEXT PSE: GOTO 2400 

24i0 IF DX>149 THEN R=U8R{I664);DX=149 

;60T0 2400 

2470 SA=PEEK (89) t256+PEEK (88) : fl0DE=PEE 

K(87)iIF H0DE=N6 THEN C0LS=2O:ROHS=96 

2480 IF Y>ROHS OR X>COLS THEN RETURN 

2490 START=SA+YIC0LS+X:60SUB 2540 

2500 CHARSET= (PEEK (756) »256) +(E3tN8) 

2510 FOR E2=N7 TO NO STEP -NhPOKE STA 

RT+E2»C0LS,PEEK(CHARSET+E2):NEXT E2 

2520 X=X+NhIF X>COLS THEN START^START 

+C0LS<N8:X=N0 

2530 ST ART=START+Nh RETURN 

2540 E3=ASC(TXT$):IF (E3<32) OR (E3>12 

7 AND E3<160) THEN E3=E3+64: RETURN 

2550 IF E3>31 AND E3<96 THEN E3=E3-32 

2560 RETURN 

2570 GRAPHICS N0:S0UND N0,33,N8,N1:P0K 

E 53277, N2;P0KE 53277,4;P0KE 710,112 

2580 POKE 752, Nh? ;FOR TIHES=N1 TO 50 

:D=INT(RND!N0)>39+Nl):R=lNT(RND(N0)t22 

tNl):COLOR 46:PL0T D,R;NEXT TINES 

2590 IF STRIG(NO)=NO THEN FOR R=NO TO 

3:S0UND R,N0,NO,N0:NEXT R:G0TO 220 

2600 R=INT(RND(N0)t5+NM 

2610 IF R=N1 THEN 2660 

2620 IF R=N2 THEN 2670 

2630 IF R=3 THEN 2680 

2640 IF R=4 THEN 2700 , 
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2650 IF R=5 THEN 2720 

2660 FOR TIME=4 TO NO STEP -NhSOUND N 

2,49,N0,TI«E:FOR PfiUSE=l TO IBOiNEU P 

flUSEiNEU TII1E:G0T0 2730 

2670 FOR T1I1E=N0 TO USiSDUND N2,TINE, 

N8,N1:F0R PAUSE=1 TO 20:NEn PftUSEiNEX 

T TIHErSOTO 2730 

2680 FOR TIME=N0 TO 15; SOUND 3, 10, NO, T 

IHEiFOR PflUSE=l TO 20:NEXT PAUSE:NEXT 

TIME: IF STRI6(N0)=N0 THEN 2730 

2690 FOR T1HE=15 TO NO STEP -Nl: SOUND 

3,10,NO,TIME:FOR PAUSE=0 TO 20:NEn PA 

USE:NEXT TIHE:60T0 2730 

2700 FOR TII1E=N0 TO N7! SOUND 3,TIME,N8 

,N1:F0R PAUSE=1 TO 20:NE.U PfiUSE:NEXT 

TIHEsIF BTRIG(N0)=N0 THEN 2730 

2710 FOR T1I1E=N7 TO NO STEP -Nl; SOUND 

3,TIHE,N8,N1:F0R PAUSE=1 TO 20:NEXT PA 

USE:NEXT TIME 

2720 IF STRIG(NO) THEN FOR TIME=56 TO 

46 STEP -NhSQUND N2,TII1E,N3,N2iFaR PA 

USE=! TO 20:NEXT PftUSE:NEXT TIME 
2730 SOTO 2590 



RELAAAX- 



2740 DATA 162,71,24,165,88,105,3,133,2 

03, 165,89, 105,0, 133,204, 160, 15,24, 177, 

203,42,145,203,136,208,248,24 

2750 DATA 165,203,105,20,133,203,144,2 

,230,204,202,208,231,104,96 

2760 DATA 0,28,62,62,62,62,62,28,62,12 

7,255,255,255,255,255,255,0,0,1,3,7,15 

,31,62,0,0,224,240,248,252,254,191 

2770 DATA 124,120,120,60,30,15,7,3,255 

,255,255,255,255,127,127,255,159,135,1 

31,128,128,0,0,0 

2780 DATA 128,192,224,240.120,88,0,0,1 

,0,0,0,0,0,0,0,255,127,127,119,247,247 

,247,247,0,0,0,0,128,128,128,128 

2790 DATA 247,247,247,227,227,227,227, 

227, 128, 128, 128, 128, 128, 128, 128, 128, 1 , 

3,7,7,0,0,0,0,0,128,128,0,0,0,0,0 

2800 DATA 192,224,240,112,0,0,0,0,0,0, 

255,255,255,255,0.0,195,102,60,24,195, 

102,60,24,0,0,0,0,0,0,96,96 

2B10 DATA 0,0,0,0,255,255,255,255,0,12 

6,4,8,16,32,126,0,56,56,56,255,255,126 

,60,24 
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py 
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517 
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m 
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2210 


YY 
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850 - 920 


HQ 
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2220 


- 2310 


EZ 
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930 - 990 
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VC 
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- 2550 


CI 


469 


1090 - 1150 


LW 
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FT 
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FH 
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■ 2800 


MH 


502 
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NS 
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- 2810 


BM 
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Atari BASIC 
'Review' 
ftuthors: Peter Favaro 
Richard H. O'Brien 
Copyright © 1983 
ss SoftSide Publications, Inc SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

If you don't wish to type this program, It Is 
available on Issue #43 SoftSlde DV and CV. 

100 ? CHR«(125):? "INITIALIZING, ONE II 

ONENT PLEASE" : N0=0: Nl=l : N2=2: N6=6: N7=7 

;NB=8:DIH S«(1024),TXT$(1) 

110 A=ADR(S<>:E=lNT(A/512tNl)»N2:CBftSE 

=B«256-A+Nl:S$(Nl)=CHRt(NO):S${1024)=C 

HRJ(N0):S$(N2)=S»(N1):I1I1=24!NN=31 

120 FOR 1=N0 TO 511:St{CBABE+I,CBASE+I 

)=CHR*(PEEK(I+57344)):NEXT I 

130 RESTORE :FOR 1=N0 TO 41:READ R:PQK 

E 16MtI,R:NEXT I:HI1=24:HN=31 

140 IF I1N>120 THEN 160 

150 FOR 1=«N TO NNiREAD N!S$(I+CBASE,I 

+CBASE) =CHR« (N) : NEXT I -.HN^MH+NB: NN=NN+ 

NB:6QT0 140 




160 HI1=20B;NN=215 

170 IF MH>256 THEN 190 

180 FOR I=I1H TO NN:READ N:S*n+CBASE,I 

+CBASEI=CHR$(N):NEXT l!NM=NH+Na!NN=NN+ 

NBiGOTO 170 

190 Nn=464:NN=471 

200 IF MH>479 THEN 220 

210 FOR I=MM TO NN:REAO N!S«(I+CBASE,I 

+CBASE)=CHR$(N) :NEXT I:«N=MH+N8:NN=NN+ 

NBjGOTO 200 

220 REN 

230 GRAPHICS IBiPOKE 756,B:P0KE 77, NO: 

SETCOLOR N0,NO,N6:P0SITION Nl.NO:? «N6 

; "RELAXATION TRAINER" 

240 POSITION NljNl:? )tN6;"»>0PTI0NS N 

ENU>»":? tN6;" S339333933S9393333':? 

«N6i" £ REVIEW SEQUENCE' 

250 ? iUi' e ENTIRE PROGRAM":? «N6;' 

d DEEP BREATHING":? #N6i" TRAINER':? 

«N6i" OCEAN SOUNDS":? »N6 
260 ? *N6;" 333333333333333333':? fN6; 
" ENTER CHOICE": CLOSE «N1:0PEN INI, 4 
,NO,"K":GET «N!,R 
270 IF R=ASC('R") THEN CLOSE iNhBOSUB 

790:GaT0 310 
280 IF R=ASC("E") THEN CLOSE «N1:P0KE 
559.N0:RUN •D:RELAX" 



290 IF R=ASC("D") 

1230 

300 IF R=ASC("G") 

1430 

310 POSITION 2,N1 



THEN CLOSE INI: GOTO 



THEN CLOSE INI: GOTO 



? #N6j "REVIEN SEQUE 
NCE":GOSUB 1090:G0SUB 11BO:POSITION NO 
,N0:? tN6; "FIRST MUSCLE GROUP ' 
320 ? IN6; "HANDS BICEPS TRICEPS' 
330 60SUB 1090:POSIT10N N8,4:? IN6;"r 
:POSITION 10,4:? #N6;"J!":P0SITI0N N8,5 
!? #N6;"1":P0SIT!0N 10,5:? SN6;"1»" 
340 POSITION NB.Nfc:? «N6;°+;:G0SUB 116 
0:GOSUB 1090:GOSUB 1180 
350 POSITION N7,N1:? »N6;" HANDS": POSIT 
ION N6,5:? »N6j"h":G0SUB 1160:60SUB 11 
50 

360 60SUB 1090:60SUB 11B0:G0SUB B30:S0 
SUB 1090:GOSLIB 1180;G0SUB 1200:80SUB 1 
IBO 

370 60SUB B40:G0SUB 1090:G0SUB 1180:GO 
SUB 1160:G0SUB 1150:G0SUB 830:G0SUB 10 
90:G0SUB 11BO:GOSUB 1200:GOSUB HBO 
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3B0 POSITION N?,N1:? «Ni;"BICEPS":POSI 
TION N6,5:? *N6!"b":B0SUB 1090:BOSUB 1 
liOiGOSUB 1130 

390 SDSUB 1090:60SUB I180:SOSUB 830:60 
SUB 1090:BOSUB 1180:G0SUB 1200:G0SUB 1 
IBO 

400 SOSUB 84(ii60SLIB 1090!6DSUB 1IB0:GD 
SUB 1160:G0SIJB 1130:BQSUB BSOsBOSUB 10 
90:B0SUB 1180:6DSUB 1200:GOSUB 1180 
410 POSITION N6,Nl!? «N6;"TRICEPS":P0S 
ITION N6,5:? «N6;"t":B0SUB 1090:G0SUB 
lUOiGOSUB 1110 

420 eOSUB 1090:60SUB llSOiGOSUB 830:G0 
SUB 1090:G0SUB U80:B0SUB 1200!GOSUB 1 
130 

430 G0SU8 840!BOSUB 1090:60SUB 1180:60 
SUB lli0:60SUB 1110:60SUB 830:G0SUB 10 
90:60SUB 1180:G0SUB 1200:60SUB 1180 
440 GOSUB 790;POSITION 4, NO:? »Nt;'SEC 
OND GROUP ": POSIT ION Nl.Nl:? «N6!"F0REH 
BAD NOSE MOUTH" 

450 GOSUB 1090:POSITION 9,3:7 »Ni;"l_°: 
BOSUB 1030:G0SUB 1090:GOSUB 1180 
460 POSITION N6,N1:? «N6; "FOREHEAD" :PD 
SITION N6.5:? «N6;"f ":60SUB 1030:G0SUB 
1040 
470 GOSUB lO90:G0SUB 1180:60SUB 830:GQ 
SUB 1090:B0SUB 1180:S0SUB 1200:G0SUB 1 
180 

480 BOSUB 840:G0SUB 1090:GOSUB 1180:60 
SUB 1030:GaSU8 1040;G0SUB S30:B0SUB 10 
90:B0SUB 11B0:G0SUB 12OO:G0SUB 1180 
490 POSITION H8,N1:? »N6|"N0SE':P0SITI 
ON N6,5:? IN6;"n»:G0SUB i030!60SUB 105 


500 GOSUB 1090;G0SUB nB0:S0SUB 830:G0 
sue !090:B0SUB 11B0:G0SUB 1200:G0SUB 1 
180 

510 SOSUB 840;B0SUB 1090:60SUB 1180:60 
SUB 1030:GOSUB 1050:GOSUB 830:G0SUB 10 
90:G0SUB 1!80:G0SUB I200:GOSUB 1180 




520 POSITION N7,N1:? »N6;"M0UTH":PQSIT 

ION N6,5:? «N6;"ib":G0BUB 1030:G0SUB 10 

70 

530 GOSUB 1090:G0SUB 1180:GDSUB B3O:G0 

SUB 1090:GOSUB 1180:G0SUB 1200:GGSUB 1 

ISO 

540 BOSUB fl40:G0SUB 1090:BOSUB 1180:60 

SUB 1030: GOSUB 1070:B0SUB 830: BOSUB 10 

90: GOSUB 1180: GOSUB 1200: GOSUB HBO 

550 GOSUB 790:POSITION 5, NO:? «N6! "THl 

RD GROUP" 

560 POSITION 3,N1:? «N6;"NECK SHOULDER 
S":POSITION 5,2:? fNi;"flND STQHfiCH" 
570 GOSUB 1090: POSITION (18,4:? iU\"1A 
r:POSlTION 9,5:? INb;"!!": GOSUB 870:8 
OSUB 1090:60SUB 1180 
580 POSITION N8,N1;? «N6;"NECK°:PQSITI 
ON N6,5:? «N6;"n":G0SUB 870:6DSUB 890 
590 GOSUB 1090:GQSUB 1180:GOSUB 830:G0 
SUB !090:60SUB 1180:GDSUB 1200:60SUB 1 
180 

600 GOSUB 840:GOSUB 1090:BOBUB 1180:G0 
SUB 870:G0SUB 890:BOSUB 830:B0SUB 1090 
:GQSUB 1180:B0SUB 1200:B0SUB 1180 
610 POSITION N6,N1:? IN6! "SHOULDERS" :P 
OSITION N6,5:? SN6i"5h":60SUB 870:G0BU 
910 




620 SaSUB 1090;60SUB UB0:60SUB 830:GO 

SUB 1090:60SUB 1180:B0SUB nOOsGOSUB 1 

180 

630 GOSUB 840:G0SUB 1090:GOSUB 1180:G0 

SUB 870:B0SUB 910:GGBUB 830:60SUB 1090 

■.BOSUB 1180:B0Sm 1200: GOSUB 1180 

640 POSITION N6,Nl!? IN6;"ST0MACH":P0B 

ITION N6,5!? «N6;"5t"!G0SUB 870:G0BUB 

930 ■ 

650 GOSUB 1090:B0SUB 11B0;60SUB 830;GD 

SUB 1090:G0SUB n80:fiOSUB 1200;G0BUB 1 

180 

660 GOSUB 840:G0SUB 1090:G0SUB 11B0:GD 

SUB 870:80SUB 930:G03UB 830!60SUB 1090 

iGDSUB 1180:G0SUB 1200JGOSUB 1180 

670 GOSUB 790:P0SITiaN 5, NO:? »N6;'LAS 

T GROUP ": POSIT ION 4,N1;? #N6i"THIGHS C 

ALVES":POSITION N6,2 

680 ? «N6;"flND FEET": GOSUB 1090:P0Sni 

ON N3,N6:? «N6!"V:";P0SITI0N 9,N7:? « 

N6;«^":P0SITI0N N8,HB:? #N6;";;<" 

690 GOSUB 950: GOSUB 1090: GOSUB 1180:PO 

SITION N7,N1:? »N6;''THI6HS»:P0SIT10N N 

6,5:? »N6;"t":G0SUB 950:GOSUB 970 

700 60SUB 1090: GOSUB 1180: GOSUB 830:60 

SUB 1090:60SUB 1180:G0SUB 1200:GOSUB 1 

180 

710 GOSUB 840:60SUB 1090:60SUB 1180:60 

SUB 950:80SUB 970:G0SUB 830:G0SUB 1090 

:60SUB 1180:G0SUB 1200:6flSUB 1180 

720 POSITION N7,N1:? «N6;"CALVES":P0SI 

TION N6,5:? #N6i"c":G0SUB 950:BOSUB 99 



730 GOSUB 1090;G0SUB 1180:G0SUB 830:60 

SUB 1090:G0SUB 1180:60508 1200:GOSUB 1 

ISO 

740 GOSUB 840: GOSUB 1090: GOSUB 11 BO: GO 

SUB 950;60SUB 990:G0SUB 830:G0SUB 1090 

:GOSUB 1180:60SUB 1200:60SUB 1180 

750 POSITION N7,N1:? #N6;"FEET":P0SITI 

ON N6,5:? »N6;"f ":60SUB 950:GOSUB 1010 

760 GOSUB 1090:G0SUB 1180:G0SUB 830:GO 

SUB 1090:G0SUB 11BO:GOSUB 1200:60SUB 1 

IBO 



770 GOSUB 840: BOSUB 1090; GOSUB 1180:60 

SUB 950:60SUB I010:GDSUB 830:60SUB 109 

0: GOSUB 11 80: GOSUB 1200: GOSUB 1180 

780 GOTO 220 

790 REM 

800 GRAPHICS !8:P0KE 756,B:SETC0L0R NO 

,4,N8:SETC0L0R N1,4,N6:SETC0LDR 2,N0,N 
6:P0SITI0N 9,3:? #N6i"r' 
BIO POSITION N8,4;? »N6;"Z$4":P0SITI0N 

N8,5;? #Nfc;"'()t":P0SITION N8,N6:? #N 
6;"+.-':P0SlTI0N 9,N7:? «N6;"./' 
820 POSITION N8,NB:? »N6; ":;<'':POSITIO 
N Ni,ll:? »N6; '====^=======3====3" ; ret 

URN 

330 POSITION N7,N1:? «N6;"TENSE":RETUR 

N 

340 POSITION N7,N1:? SN6! "REPEAT" :RETU 

RN 

850 POSITION Nl.Nl:? »N6!"REPEftT THE": 

? »N6:? #N6i" TENSION' :? »N6:? »N6i°_R_ 

ELAXATION":? «N6:? »N6;" CYCLE? » 

#N6;" TENSE 5 SECB?':RETUR 



tN6: 



860 

N 

870 FOR DC=15 TO Nl STEP -Nl: SOUND NO, 

217,10,DC:S0UND Nl,144, 10,DC:F0R PSE=N 

1 TO 5:NEXT PSE:NEXT DC 

880 SOUND NO,NO,N0,N0:SOUND N1,NO,NO,N 

0:RETURN 

890 FOR DC=15 TO Nl STEP -Nl: SOUND NO, 

108, 10, DC: SOUND Nt,72, 10,DC:F0R PSE=N1 

TO 10:NEXT PSE:NEXT DC 
900 SOUND NO, NO, NO, NO: SOUND N1,N0,N0,N 
0: RETURN 
910 FOR D=N1 TO 2:F0R DC=15 TO Nl STEP 

-N1:S0UND NO,108,10,DC:SOUND Nl,72,10 
, DC: FOR PSE=NI TO 10: NEXT PSE 
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«0 NEXT DC:NE.U DsSOUND NO.NO.NO.NOsS 

OUND Nl, NO, NO, NO: RE TURN 

930 FOR D=N1 TO 3:F0R DC=15 TO Nl STEP 

-NhGOUND N0,108,10,DC:S0UND Nl,72,10 
,DC:FQR PS£=N1 TO 10:NEU PSE 
940 NEXT DC:NEXT D:50UND NO,NO,NO,N0:S 
flUND Nl,NO,N0,N0:RETURN 
950 FOR DC=15 TO Nl STEP -Ni:SOUND NO, 
243,10,DC:S0UND N1,193,10,DC:F0R PSE=N 
1 TO 10:NE!(T PSE:NEXT DC 
960 SOUND NO,N0,NO,NO:S0UND HI, NO, NO, N 
0: RETURN 

970 FOR DC=15 TO Nl STEP -Nl: SOUND NO, 
12!,10,DC:S0UND N1,96,10,DC:F0R PSE=N1 

TO 10:NEXT PSE:NEXT DC 
980 SOUND NO, NO, NO, NO: SOUND N1,N0,N0,N 
0: RETURN 
990 FOR D=N1 TO 2:F0R DC=15 TO Nl STEP 

-NhSOUND NO, 121, 10, DC: SOUND Nl,96,10 
,DC:FDR PSE=N1 TO 10:NEXT PSE 
1000 NEXT DC:NEXT D:SOUND NO,NO,NO,N0: 
SOUND N1,NO,NO,NO:RETURN 
1010 FOR D=N1 TO 3:F0R DC=15 TO Nl STE 
P -NlrSOUND NO,121,10,DC:SOUND Nl,9i,l 
0, DC; FOR PSE=N1 TO 10: NEXT PSE 
1020 NEXT DC:NEXT DiSOUND NO, NO, NO, NO: 
SOUND N1,NO,NO,NO:RETURN 
1030 FOR DC=15 TO Nl STEP -NhSOUND NO 
,217,10,DC:F0R PSE=N1 TO 10;NEXT PSE:N 
EXT DC: SOUND NO, NO, NO, NO: RETURN 
1040 FOR DC=15 TO Nl STEP -Nl; SOUND NO 
,53,10,DC:F0R PSE=N1 TO 10:NEXT FS£:NE 
XT DCrSOUND N0,NO,NO,N0:RETURN 
1050 FOR D=N1 TO 2:F0R DC=15 TO Nl STE 
P -N1:S0UND N0,53, 10,DC;F0R PSE=N1 TO 
10;NEXT PSE: NEXT DC 
1060 SOUND N0,N0,N0,N0:NEXT 0:RETURN 
1070 FOR D=N1 TO 3:F0R DC=15 TO Nl STE 
P -NhSOUND N0,53,10,DC;F0R PSE=N1 TO 
10:NEXT PSE:NEXT DC 

1080 SOUND NO,NO,N0,NO:NEXT D:RETURN 

1090 ST=STICK(NO):IF ST=15 THEN 1090 

1100 FOR PSE=N1 TO 100: NEXT PSE: POKE 7 

7, NO: RETURN 

IJJO fm V=Hl JO 3:F0R DC=15 TO Nl STE 

P -NhSOUND N0,29,10,DC;F0R PSE=N1 TO 

10;NEXT PSErNEXT DC 

1120 SOUND N0,N0,N0,N0:NEXT D:RETURN 
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1130 FOR D=N1 TO 2:F0R DC=15 TO Nl STE 
P -NhSOUND N0,29,10,DC;F0R PSE=N1 TO 
10:N£XT PSE:NEXT DC 
1140 SOUND N0,N0,N0,NO:NEXT D:RETURK 
1150 FOR DC=15 TO Nl STEP -NhSOUND NO 
,29,10,DC:F0R PSE=N1 TO 10:NEXT PSE:NE 
XT DC:SDUND N0,N0,N0,N0:RETURN 
1160 FOR DC=15 TO Nl STEP -NhSOUND NO 
,121,10,DC:FOR PSE=N1 TO 10:NEXT PSE;N 
EXT DC: SOUND NO, NO, NO, NO: RETURN 
1170 FOR DC=15 TO Nl STEP -NhSOUND NO 
, 50,10, DC:FQR PSE=N1 TO 10:NEXT PSE:NE 
XT DC:SOUND NO,NO,NO,NO:RETURN 
1180 FDR BL=NO TO 2:P0SITI0N NO,BL:? I 
N6;" ";NEXT BL:RE 

TURN 

1190 ? »N6;CHR$( 125): RETURN 
1200 POSITION N7,Nh? «N6; "RELAX" 
1210 N=N6:F0R DELftY=Nl TO 900:SETCOLOR 
2, NO, N; IF DELftY=300 OR DELflY=600 OR D 
ELftY=750 THEN N=N-2 
1220 SETCQLOR 2,N0,N:NEXT DELflYsBETCOL 
OR 2, NO, N6: RETURN 

1230 GRAPHICS N6:DX=31:DY=35:C0LOR Nh 
PLOT 26,Nl:DRAIflT0 31,N1:DRAWT0 31,70:D 
RAWTO 26,70:P0KE 53277, N2 
1240 X=NhY=NhTXT$='E":60SUB 1330 
1250 X=N1:Y=50;TXT$=T:G0SUB 1330 
1260 ST=STICK(NO):TR=STRIB(NO) 
1270 IF ST=15 AND TR=NO THEN 220 
1290 IF ST=13 THEN DX=DX+N1:IF DY<70 T 
HEN DY=DY+N1 

1290 IF ST=14 THEN DX=DX+N1:IF DY>N1 T 
HEN DY=DY-N1 

1300 IF ST<13 OR ST=15 THEN 1260 
1310 PLOT DX,DY:IF DX<150 THEN FOR PSE 
=N2 TO N6:NEXT PBE:80T0 1260 
1320 IF DX>149 THEN R=USR(1664):DX=149 
:G0TO 1260 

1 330 SA=PEEK ( 89 ) 1 256+PEEK ( 88 ) : HODE=PEE 
K(97):IF H0DE=N6 THEN C0LS=20:R0IIS=96 
1340 IF Y>RO«S OR X>CDLS THEN RETURN 
1350 START=SA+Y»COLS+X:60SUB 1400 
1360 CHARSET= (PEEK (756) >256) + (E3»N8) 
1370 FOR E2=N7 TO NO STEP -Nh.POKE STA 
RT+E2«C0L5, PEEK (CHARSET+E2) : NEXT E2 
!3fl0 X=X+N1:IF X>COLS THEN START=START 
+C0LS»NS:X=N0 
1390 STARr=STARH-NhRETURN 



1400 E3=ASC(TXTt):IF (E3<32) OR (E3>12 

7 AND E3<160) THEN E3=E3+64:RETURN 

1410 IF E3>31 fiND E3<96 THEN E3=E3-32 

1420 RETURN 

1430 GRAPHICS NOtSOUND N0,33,N8,N1:PQK 

£ 53277, N2:PDKE 53277,4!P0KE 710,112 

1440 POKE 752, Nl:? ;FDR TIMES=N1 TO 50 

:D=INT(RND(NO)«39+N1I:R=INT(RND(NO)»22 

+N1)!C0LQR 46:PL0T D,R:NEU TINES 

1450 IF STRI6(N0)=N0 THEN FOR R=NO TO 

3;S0UND R,NO,NO,NO:NEXT R:GOTO 220 

1460 R=INT(RNBtN0)»5tNl) 

1470 IF R=N1 THEN 1520 

1480 IF R=N2 THEN 1530 

1490 IF R=3 THEN 1540 

1500 IF R=4 THEN 1560 

1510 IF R=5 THEN 1580 

1520 FOR TIKE=4 TO NO STEP -Nl: SOUND N 

2,49,N0,TI«E:F0R PAUSE=1 TO 180:NEXT P 

AUSE:NE!(T TI(1E:60T0 1590 

1530 FOR TIME=NO TO 118-. SOUND N2,TII1E, 

N8,N1;F0R PAUSE=1 TO 20:NEn PAUSE:NEX 

T TII1£;BOT0 1590 

1540 FOR TII1E=N0 TO 15!S0UND 3, 10, NO, T 

1HE;FDR PAUSE=1 TO 20:NEXT PAUSE:NEXT 

TIME! IF STRIG(NO)=NO THEN 1590 

1550 FOR TIME=15 TO NO STEP -NhSOUND 

3,10,N0,TIHE:FQR PAOSE=0 TO 20:NEXT PA 

USE:NEXT TI11E:60T0 1590 

1560 FOR TIHE=NO TO N7:S0UND 3,TIME,N8 

,N1;F0R PAUSE=1 TO 20:NEXT PAUSE:NEXT 

TIME: IF STRIG(NO)=NO THEN 1590 



1570 FOR TII1E=N7 TO NO STEP -Nl: SOUND 

3,TII1E,N8,N1:F0R PAUSE=1 TO 20:NEXT PA 

USEiNEXT TIME 

1580 IF STRIGiNO) THEN FOR TI«E=56 TO 

46 STEP -NhSQUND N2,TI«E,N8,N2!F0R PA 

USE=1 TO 20: NEXT PAUSE: NEXT TIHE 

1590 GOTO 1450 

1600 DATA 162,71,24,165,88,105,3,133,2 

03,165,89,105,0,133,204,160,15,24,177, 

203,42,145,203,136,208,248,24 

1610 DATA 165,203,105,20,133,203,144,2 

,230,204,202,208,231,104,96 

1620 DATA 0,28,62,62,62,62,62,28,62,12 

7,255,255,255,255,255,255,0,0,1,3,7,15 

,31,62,0,0,224,240,248,252,254,191 

1630 DATA 124,120,120,60,30,15,7,3,255 

,255,255,255,255, 127, 127,255, 159,135, 1 

31,128,128,0,0,0 

1640 DATA 128,192,224,240,120,88,0,0,1 

,0,0,0,0,0,0,0,255,127,127,119,247,247 

,247,247,0,0,0,0, 128, 128, 128, 128 

1650 DATA 247,247,247,227,227,227,227, 

227,128,128,128,128,128,128,128,128,1, 

3,7,7,0,0,0,0,0,128,128,0,0,0,0,0 

1660 DATA 192,224,240,112,0,0,0,0,0,0, 

255,255,255,255,0,0,195,102,60,24,195, 

102,60,24,0,0,0,0,0,0,96,96 

1670 DATA 0,0,0,0,255,255,255,255,0,12 

6,4,8,16,32,126,0,56,56,56,255,255,126 

,60,24 
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Chemistry 
Assistant 




by Art V. Cestaro III 

Chemistry Assistant is an educational aid for an Atari® with 24K RAIM. 

Chemistry Assistant is for everyone in a chemistry course who hates to look 
up the more commonly used formulas. For example, do you remember the for- 
mula to change grams to moles, or the one to find density? This program does 
it for you, along with other common chemical problems, such as finding 
molecular weight, converting temperatures, and metric conversions. 

The main menu lists all the functions the program can perform. To choose 
one, type the number of the function you desire, and press the Return key. If 
you see the message "Try again," you entered an incorrect numeral. The 
screen indicates your choice, and asks you to confirm it (answer YES or NO). 
The program goes to the appropriate function, and prompts you for the infor- 
mation it needs. You may return to the menu by typing "M" when the com- 
puter asks if you want to continue or go back to the menu. 



Functions 

• 1. View Element 

This shows you how a particular element appears in the periodic table. Enter 
the symbol for the element you wish to view. For example, enter "AU" for 
gold. 

• 2. Grams to Moles 

To compute the number of moles from the number of grams, enter the ele- 
ment and the number of grams. Here is the formula: 

#grams x 1 mole 
atomic weight 



• 3. Moles to Grams 

To find the number of grams from the number of moles, enter the element 
and the number of moles. The formula is: 

#moles X atomic weight 



1 mole 



• 4. Molecular Weight 

Tell the program the number of different elements in your molecule, the 
name of each element, and the number of atoms of each. For example, take 
the molecule C2Hg02. First enter 3, the number of different elements in the 
molecule (C, H, and O). Then, enter the first element, "C," and the number 
of C atoms, 2. Repeat this for the other atoms in the molecule. 

• 5. Density 

This function calculates the density of an object. Enter its mass and volume. 
The formula is: 



mass 



volume 



• 6. Degrees (Temperature) 

Enter the conversion you want by pressing "F" for Fahrenheit to Celsius, or 
'C" for Celsius to Fahrenheit. The formulas are: 



C°= (F°-32) X 5 



F° = (9 X C°) + 160 



• 7. Molarity 

To find a solution's molar concentration, enter the number of moles of 
solute, then enter the number of liters of solution. The molarity formula is: 

number of moles of solute 



number of liters of solution 




Which weighs the most — a pound of 
lead or a pound of feathers? 
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Transverse wave. 
• 8. Molality 

To find the molal concentration of a solution, enter the number of moles of 
solute, and the number of kilograms of solvent. Here's the formula: 

moles of solute 



kg of solvent 

• 9. Metric Conversion 

Several calculations are included under this heading. Choose the function 
you want by typing the corresponding numeral, then enter the information the 
computer requests. 

• 10. Percent Difference 

This function calculates the percent difference between two numbers. Enter 
the experimental value and the accepted value. The formula: 



I experimental value-accepted value | 
accepted value 



X 100% 



• 11. Wavelength of Light 

To calculate the wavelength of light, enter its frequency. The formula for 
wavelength: 



wavelength = 



speed of light 
frequency 



• 12. Relative Error 

To find the relative error of a measurement, enter the absolute error, then 
enter the measurement. The formula is: 

absolute error 



measurement 



• 13. Exit program 
Good bye! 

Note: Readers wishing to contact the author may write to him at the following 
address: 

Art V. Cestaro in 

PO Box 367 

N. Eastham, MA 02561 




by Jerry P. Waid 

Math Quiz is an educational program for an Atari® with at least 16K 
RAM. 



The fun begins as the program title appears on the screen in a rainbow of 
color. Your child begins playing by choosing the number of problems to solve. 
Too few or too many problems result in a witty response from the computer. 
Next, the child selects the type (any of the four arithmetic functions), and level 
of difficulty. For multiplication, he may choose between random problems or 
practice on the multiplication tables. 

The problems appear on the screen in graphics mode two to provide a large 
color display. At the bottom of the screen is an area for entering responses. 
The computer displays both the problem and the student's answer. Several dif- 
ferent responses inform your youngster whether the answer is correct. The ap- 
proach is friendly and encouraging, rather than punitive. An incorrect 
response results in another chance to try the problem. 

Although the program imposes no time limit that might discourage a child, 
it does record correct first responses. After completing the selected number of 
problems, the child receives a rank, such as "You need more practice" or 
"Genius," while the computer plays a well-known tune. 

At the end of each drill, your child may choose to repeat the drill at the same 
level, or may make changes in the level and type of problem. 



MATH QUIZ - 
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MATHQUIZ- 



ss ss ss ss ss ss ss ss ss ss ss 
ss ss 

ss Atari BASIC SS 

SS "Hath Quiz' SS 

SS Author: Jerry P. Kaid SS 
SS Copyright © 1983 SS 
SS SoftSide Publications, Inc SS 
SS SS 

ss SS SS SS SS S5 ss SS SS SS SS 
If you don't wish to typo tills program, It Is 
available on Issue #43 SoltSlds DV and CV. 

Initialization. 

10 SRflPHICS 7+16!P0KE 16,64:P0KE 53774 

,64 

20 Din R!t(35),R2»ilO),R3*(10),R4»(10! 

,R5$i25),U$(l),2$(3),I$(l) 

40 DIH D$(3),CUP«(32).CD0NN*(32),CL$(3 

8) 

50 CL1i=" 

55 N752=752:NO=0:N1=! 

Call the machine language 

subroutine for the title page. 

60 SOSUB 1800 
Main program loop. 

70 GRAPHICS 0:POK"E 16,64!P0KE 53774.64 
80 Q=0:C=0 

90 POKE 16,64:F0KE 53774, 64: PRINT ")" 
Print graphics mode 1 on a graphics 
mode screen. 

100 DL=PEEK(560)+PEEK(561)t256:PQKE (D 

L+A;i,6:P0KE (DL+7),6 

110 PRINT 'LET'S TEST YOUR HATH 

SKILL." 

Select how many problems to do. 
120 PRINT ;PRINT 
130 TRAP 90 

140 PRINT "HOK HANV PROBLEMS " 
150 PRINT ■ DO YOU WANT TO SOLVE 

';: INPUT i 

160 IF J<10 THEN 180 
170 SOTO 200 

180 GRAPHICS 1+16:P0KE 16,64:P0KE 5377 
4,64;PRINT »6:PRINT #6:PRINT «6!PRINT 
#6;" YOU MUST BE " 
190 PRINT »6;" IN A HURRY 'll'iPRINT 

#6;PRINT «6;' TRY AT LEAST 10 ":FOR 

H=l TO !200:NEn H:GRAPHICS 0:G0TO 90 
200 IF J>30 THEN 220 



210 GOTO 240 

220 GRAPHICS 1+16:P0KE 16.64:P0KE 5377 
4,64:PRINT it6:PRINT I6:PRINT «6:PRINT 
#6 J* I HAVE ALL DAY," 
230 PRINT 16; " BUT H0« ABOUT YOU ?":PR 
INT «6:PRINT «6i" KEEP IT TO 30':F0R 
H=l TO 1200:NE.U H:6RAPHICS 0:GOTO 90 
240 POSITION 2,8:PRINT CLt:P0SITION 2, 

a 

Select the type of math problem to 
do. 

250 PRINT "INPUT - A=ADD S=SUB I1=MULT 

D=DIV;: INPUT Ut 
260 IF U»<>"A" THEN IF UtO'S" THEN IF 

U$<>"I1" THEN IF U$<>"D" THEN 240 
270 IF IMYr THEN 330 
275 POSITION 2,12;PRINT CL$ 
280 POSITION 2.10:PRINT "INPUT 'T' FOR 

MULTIPLICATION TABLES":PRINT 
290 PRINT "INPUT 'W FOR RANDOM NUMBER 
S";:INPUT It:IF I$<>"T' THEN IF I*<>"R 
" THEN 270 

300 IF I*<>"T" THEN 330 
310 POSITION 2,16:PRINT CL$:POSIT!ON 2 

,14:PRINT "INPUT MULTIPLICATION TABLE 
NUMBER" 

315 TRAP 310 

320 PRINT : PRINT "EXAMPLE '2' GIVES 2X 

="i! INPUT A:PRINT iPRINT 

330 REM INCORRECT INPUT (DO NOT DELETE 

) 

input siciii level. 

340 TRAP 330 

350 POSITION 2,18;PRINT CLt:POSITION 2 

,18:PR1NT "INPUT YOUR SKILL LEVEL 1,2, 

3";: INPUT S 

360 IF S=l THEN T=10 

370 IF S=2 THEN T=20 

380 IF S=3 THEN T=80 

390 IF S(l OR S>3 THEN 350 

Initialize the question counter and 

the correct response counter. 

400 Q=0:C=0 

410 PRINT "}° 

420 Q=e+i 

Do not generate the variable A for 

multiplication tables. 

430 IF !$="T" THEM 450 



Generate the variables A and B for 
matti equations. 

m LET A=(INT(TIRND!l)))+l!lF S>1 THE 

N fl=A+10 

450 LET 8=(INT(T»RND(1)))+1:IF S>1 THE 

N B=B+10 

Branch to the appropriate 

subroutine for the type of problem. 

460 IF U$="ft' THEN 60SUB 1000 

470 IF U<="S" THEN BOSUB 1200 

480 IF U$="N" THEN GOSUB 1400 

490 IF U$="D" THEN 60SUB 1600 

Score Incorrect responses. 

500 C=C-2 

Respond to Incorrect answers. 

510 PRINT CHR<(253) 

520 LET R=INT(3»RND(1))+1 

530 SETCOLOR 2,3,2 

540 ON R SOTO 550,570 

550 PRINT " Hum... I GET fl DIFFERENT 

ANSHERII";? :FOR H=l TO SOOsNEXT H:IF 

U$="D' THEN 1620 
560 GOTO 460 

570 PRINT " TRY A DIFFERENT ANSWER. G 
ODD LUCK!":? :FOR H=l TO BOO: NEXT H:IF 

Ll*="D" THEN 1620 
580 GOTO 460 

Respond to correct answers. 
590 LET R=INT(3tRND(l))+l 
600 SETCOLOR 2,12,2:PRINT 
610 ON R GOTO 620,630,640 
620 PRINT " RIGHT ON... GOOD NORKll! 
•:? :FOR H=l TO 400:NEXT H:GOTO 650 
630 PRINT ' YOU GOT ITI TRY ANOTHER 
.":? :FOR H=l TO 400: NEXT H:60TO 650 
640 PRINT " THAT'S GREAT! KEEP IT U 
PI":? :F0R H=) TO 400:NEXT H:GOTO 650 
650 C=C+1 

Score correct answers, and deter- 
mine If all the problems requested 
have been worked. 
660 IF Q<J THEN 420 
Provide rank based on correct 
answers. 

670 GRAPHICS 2fl6;P0KE 16,64:P0KE 5377 
4,64 

680 RESTORE : PRINT 16 
690 PRINT I6:PRINT «6 
700 Rl$=" YOU NEED MORE PRACTICE! ■ 
710 R2t="N0VICE' 
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720 R3»="EXPERT" 

730 R4$=»GENIUS" 

740 R5«='Y0UR RANK IS.." 

750 IF C<(J-5) THEN PRINT ♦6!R5$!R1« 

760 IF C=(J-4) THEN PRINT l6iR5«;R2» 

770 IF C=(J-3) THEN PRINT «6!R5$;R2» 

780 IF C=(J-2) THEN PRINT »6;R5$;R3$ 

790 IF C=(J-1I THEN PRINT t6;R5»;R3« 

800 IF C=J THEN PRINT «6sR5t;R4« 

810 FOR 1=1 TO 700: NEXT I 

Option selection for the next pass 

through the program. 

820 GRAPHICS 1:P0KE 16,64!P0KE 53774,6 
4 

830 PRINT #6; "WELL IT'S TIME":PRINT #6 
;" TO DECIDE .":PRINT t6 

840 PRINT 116; "IF YOU WANT TO 60" 
850 PRINT (16; "AGAIN AT THE SAME':PRINT 
#6; "SKILL LEVEL OR HODE" 
860 PRINT «6:PRINT »6i"TYPE..'A'" 
870 PRINT 16: PRINT #6; "IF YOU WANT TO" 
:PRINT «6j "CHANGE NODE OR " 
890 PRINT t6i"SKILL LEVEL":PR1NT «6:PR 
INT #6; "TYPE.. 'C'" 

900 PRINT :POKE N752,N0:PRINT " WHAT 
IS YOUR DESIRE ';: INPUT Z$;POKE N752,N 
1 

910 IF Z*<>"A" THEN IF 2»<>"C" THEN 82 


920 RESTORE 

930 GRAPHICS 0:POKE 16,64;P0KE 53774,6 
4: IF Zt="A" THEN 400 
940 I1="R":G0T0 80 
950 POKE 16,192:P0KE 53774,192 
Addition subroutine. 
960 END 

999 REM ADDITION 

1000 PRINT "}" 
1010 TRAP 1000 
Display problem. 

1020 GRAPHICS 2:P0KE 16,64:P0KE 53774, 

64 

1030 PRINT ♦6:PRINT #6 

1040 PRINT »6i" »■ 

1050 PRINT »6;" ";Q, 

1060 IF A<10 THEN PRINT #6)" "; 

1070 PRINT 16; " ■;A 

1080 PRINT 16;" ", 

1090 IF B<10 THEN PRINT 16;" "; 

QUIZ 
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1100 PRINT l6;»t";B 

UIO PRINT l6;/__/ 

1120 POSITION 11 ,7: PRINT It;" ?" 

Get answer. 

1130 PRINT jPOKE N752.N0JPR1NT " WH 

AT IS YOUR ANSWER ";: INPUT DiPOKE N752 

,N1 

IMO POSITION 10,7:IF D<10 THEN PRINT 

«6;" "i 

1145 IF D>99 THEN PRINT «6;D!B0T0 1160 

1150 PRINT 1(6;" ";D 

1160 PRINT :1F D=ft+B THEN 590 

1170 RETURN 

Subtraction subroutine. 

1199 REN SUBTRACTION 

1200 PRINT ">" 
1210 TRAP 1200 

Ensure that A is greater than B. 

1220 IF A>Ei THEN 1250 

1240 A=A+B 

Display problem. 

1250 GRAPHICS 2:P0KE 16,64:P0KE 53774, 

64 

1260 PRINT 1I6:PRINT «6:PRINT )t6!" «" 

1270 PRINT «6i* ";Q, 

1280 IF A<10 THEN PRINT «6;" "; 

1285 IF A>99 THEN PRINT «6iA:60T0 1300 

1290 PRINT «6;" ";A 

1300 PRINT »6;» ', 

1310 IF 6<10 THEN PRINT 16;" ».; 

1320 PRINT «6;'-"iB 

1330 PRINT «6;, ".___" 

1340 POSITION 11,7:PRINT ♦6;' ?" 

Get answer. 

1350 PRINT :POKE N752,N0:PftINT " WH 

AT IS YOUR ANSWER ";: INPUT DjPQKE N752 

,N1 

1360 POSITION 11,7:IF D<10 THEN PRINT 

#6!" "; 

1370 PRINT «6;D 

1380 PRINT :IF D=A-B THEN 590 

1390 RETURN 

Multiplication subroutine. 

1399 REN MULTIPLICATION 

1400 PRINT ■'}" 
1410 TRAP 1400 
Display problem. 

1420 6RAPHICS 2:P0I';E 16,64:P0KE 53774, 

64 

1430 PRINT #6;PR1NT «6:PRINT *6!" »" 
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1440 PRINT «6!' "jQ, 

1450 IF B<10 THEN PRINT »6;" "i 

1460 PRINT 16; ■ ";B 

1470 PRINT »6;" ", 

1480 IF A.:. 10 THEN PRINT U;' "j 

1490 PRINT »6;"X ";A 

1500 PRINT «6;," " 

1510 POSITION 12,7!PRINT «6;" ?" 

Get answer. 

1520 PRINT :POKE N752,N0!PRINT " WH 

AT IS YOUR ANSWER ";: INPUT DjPOKE N752 

,N1 

1530 POSITION 11,7:1F D<10 THEN PRINT 

«6;" "; 

1540 IF D>99 THEN PRINT I6|D!G0T0 1560 

1550 PRINT «6;" ";D 

1560 PRINT !lF D=A»e THEN 590 

1570 RETURN 

Division subroutine. 

Ensure that A Is divisible by B. 

1599 REM DIVISION 

1600 A=B»(INTU0»RND(1))+1) 
1610 PRINT "}" 

Display problem. 

1620 TRAP 1610 

1630 GRAPHICS 2:P0K:E 16,64:P0KE 53774, 

64 

1640 PRINT »6:PRINT «6:PRINT #6;" «" 

1650 PRINT «6;' ";Q;' "jAiViB;" 

1660 POSITION 16,3;PRINT it6;"?" 

Get answer. 

1670 PRINT jPOKE N752,N0:PRINT » WH 

AI IS YOUR ANSWER "j: INPUT D:POKE N752 

,N1 

1680 POSITION 16,3:PRINT «6!D 

1690 PRINT :IF fi=A/B THEN 590 

1700 RETURN 

Set up program title. 

1799 REN PRINT KATH QUI! 

1300 NS=4:NT=15 

Machine language subroutine for 

rainbow effect. 

1810 GOSUe 4000 

Print "Math Quiz" In graphics Mode 

7. 

1820 60SUB 2000 

Create the rainbow effect. 

1830 FOR 1=1 TO lOOiNEXT I 

1840 SETCOLOR 0,12,6 



1850 RESTORE 

1B60 CUP»(15,15)=CHR»(22) 

1870 X=USRIADR(CUP»),NS) 

1880 CUP*(15,15)=CHR«(26) 

1890 X=USR(ADRICUP«),NS) 

1900 SETCOLOR 0.3,4 

1910 CD0«N1(15,15)=CHR$(26) 

1920 X=USR(fiDR(CDOHN»),NS) 

1930 SETCOLOR 0,7,2 

1950 RETURN 

Plot "Math Quiz." 

1999 REM PRINT HftTH QUIZ 

2000 BRAPHICS 7:P0KE I(i,64:P0KE 53774, 
44 

2020 SETCOLOR 0,0,0! SETCOLOR hO.HiSE 

TCOLQR 2, 0,0: SETCOLOR 4,0,0 

2030 COLOR 2:FC0L0R=1 

2040 RESTORE 2010 

Display author's name on the title 

page. 

2060 DL=PEEKi560)+PEEK(56l)»256 

2070 POKE IDL+85),70:P0KE (DLt88),7;P0 

KE (I)L+89),7!P0KE (DL+90),7 

2090 PRINT " BV J 

.P. MAIO" 

Plot "Math Quiz." 

2100 READ D$!lF ASCiD$)<64 THEN 60TC 2 

180 

2110 IF DJ^-P" THEN READ ROW,C0LU(1N:G0 

SUB 2190:PL0T COLUMN, ROHiGOTO 2100 

2120 IF D$="0° THEN READ R0RI6IN,C0RIG 

1N:80T0 2100 

2130 IF D$="END" THEN RETURN 

2140 IF D*<>'F' THEN 6QTG 2100 

2150 READ ROM, COLUMN: GOSUB 2190!P081T] 

ON COLUMN, ROW: POKE 765.FC0L0R 

2160 "XIO 18,I6,0,0,"S:»:PL0T COLUMN, RO 

N:60T0 2100 

2180 ROH=VAL(Dt):READ COLUHN:a05UB 219 

0:DRAWTO COLUMN, ROW: GOTO 2100 

2190 ROW=R0W+ROR I GIN : COLUMN=COLUMN+COR 

1G1N:RETURN 

2999 REM PRINT MATH QUIZ 

3000 REM "M" 
3010 DATA 0,1,20 

3020 DATA P, 32, 24, 0,24,0, 20, F, 12, 12,0, 
4,0, 0,P, 32, 24, 32, 17, F, 16, 17, 23, 12, F, 16 

,7,32,7,32,0,F,0,0 
3040 REM -A" 



3050 DATA 0,1,50 

3060 DATA P,32,24.0,14,P,!4,13,F,IO,12 

,14,n,F,l4,13,P,32,24,32,17,F,20,13,2 

0, 11, 32,7, 32, 0.F, 0,10, 0,14 

3100 REM "T" 

3110 DATA 0,1,80 

3120 DATA P,0,0,0,24,7,24,7, 16,32, 16,3 

2,8,F,7,8,7,0,F,0,0 

3140 REM "H" 

3150 DATA 0,1,110 

3160 DATA P, 32, 24, 0,24,0, 17, F, 14, 17, 14 

, 7, 0,7,P, 32, 24,32,17,F, 20, 17,20,7,32,7 

,32,0,F,0,0,0,7 

3200 REM "Q" 

3210 DATA 0,40,20 

3220 DATA P, 34, 21, 32, 20, 28, 24, 4, 24, 0,2 

0,0,4,P,23,9,23,14,25,15,25,17,P,23,9, 

F, 25, 10, 25, 7, 7, 7, F, 7, 17, F, 25, 17 

3230 DATA P, 34, 21, 34, 16, F, 32, 15, 32,4, F 

,28,0,F,4,0,F,0,4 

3240 REM "U" 

3250 DATA 0,40,50 

3260 DATA P, 0,24, 28, 24, 32, 20, 32, 4, P,0, 

24,0,17.F,25,17,25,7.0,7.0,0,F,28,0,F, 

32,4 

3300 REN "I" 

3310 DATA 0,40,80 

3320 DATA P, 32,0,32,24,25, 24, 25, 16.7,1 

6,7,24,0,24,0,0,F,7.0.7,8,F,25,8,25,0, 

F,32,0 

3340 REM "Z" 

3350 DATA 0.40.110 

3360 DATA P, 32, 0,32, 24, 23, 24, 23, 17, F, 2 

5. 17, 25. 10, 7, 24, 0,24, 0,0, P, 32, 0.F, 25,0 

,F,7,14,7,7,9,7,9,0,F,0,0 

3500 DATA END 

Read data for the rainbow effect. 

3999 REN MACHINE SUB DATA 

4000 RESTORE 4100 
4005 FOR 1=1 TO 32 

4010 READ C:C.UPt(I)=CHR*(C) 

4020 NEH I 

4030 CD0tlN*=CUP$!CD0WN$(12,12)=CHRt(22 

9) 

4040 RETURN 

4100 DATA 104 

4110 DATA 104 

4120 DATA 104 

4130 DATA 72 
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4140 DATA 162 


57 




4220 DATA 202 




4150 DATA 160 







4230 DATA 208,237 




4160 DATA 173 


0,210 




4240 DATA 104 




4170 DATA 101 


20 




4250 DATA 56 




4180 DATA 141 


22,208 




4260 DATA 233,1 




4190 DATA 141 


10,212 




4270 DATA 208,223 




4200 DATA 136 






4280 DATA 96 




4210 DATA 208,242 
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For ATARI® MATH QUIZ TilKLK ^mM 






SWAT 




SWAT 




UNES 


CODE 


LENGTH 


LINES CODE LENGTH 


10 - 100 


YO 


501 


1285 - 1390 XQ 


334 


no - 220 


UN 


565 


1399 - 1500 DK 


305 


230 - 310 


AV 


527 


1510 - 1630 OA 


350 


315 - 420 


«p 


355 


1640 - 1830 UI 


335 


430 - 540 


HJ 


343 


1840 - 1999 KL 


276 


550 - 640 


VS 


519 


2000 - 2140 QS 


503 


650 - 760 


ON 


309 


2150 - 3100 VW 


420 


770 - 890 


KP 


548 


3110 - 3260 BE 


448 


900 - 1030 


FO 


324 


3300 - 4020 XC 


313 


1040 - 1145 


PS 


365 


4030 - 4190 NV 


164 


1150 - 1280 


SR 


261 


4200 - 4280 KK 


93 
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Tired of Typing? 



• Use And Enjoy These Programs Right 
Away! 

• Avoid Worry About Typos! 

• Get Additional Programs to Enjoy 
Without Typing. 




Order this Issue's Programs on Disk or Cassette 



Send the coupon below to: 

SoftSide Publications, Inc. 

10 Northern Blvd. 

Northwood Executive Park 

Amherst, NH 03031 




^\f :3^yf 



$offS?^ P Selections 



ORDER THIS ISSUE'S MEDIA 

Having difficulty finding tfie time to input the programs 
from this issue of SoftSide Selections^ Don't despair — the 
cassette and disk versions are still available! And, each DV 
(disk version) contains an additional program 

D #43 DV $16.00 D #43 CV $8.00 

Difk Only: D Apple" D IBM* PC 

Dlik or Caucttc: D Atari* D TRS-80* Mod. I D TRS.80* Mod. Ill 

Name 

Address ^^_^^ 

City/State 



-^ip- 



D Check or Money Order 

D MasterCard D VISA 
Name of Cardholder 



A_sat5?ae. 
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'^Chemistry 
Assistant 


HELAAAX.^, i'; 




1 High 
fschool 



MC# or lnterbank#/VISA# 

Exp. Date Signature 

Prices subject to change without notice, Apple", IBM*, Atari* and TRS-80* are registered trademarks of The Apple Computer 
Company, International Business Machines, Inc., Warner Communications, and The Tandy Corporation respectively. 
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Issue 43 Adventure: 
High School 

Who said that going to 
high school Is not an 
adventure? You must go 
to all your classes, and 
complete all the ac- 
tivities before earning 
credit. Satisfy your 
teachers' requirements, 
pass six subjects, and 
graduate. Don't get 
suspended too often, or 
you might get expelled! 



SoftSide Adventure Series =^V ^^V 



What would you say to a program that asks, "What do you want to do?" 
Well, you might say, "GET RUBY" or KILL GIANT", because that's how 
the SoftSide Adventure Series works. 

Each issue, the latest Adventure takes you to another world of fantasy, 
puzzles, and thrills. Your first task is often simple survival — and even that 
basic feat can be daunting until you figure out the right way to do it. You'll 
have to be ingenious and persevering, and your rewards will be great. 

To "win" a fantasy/adventure game, you must solve the author's devious 
puzzles, and overcome the obstacles that confront you — whether they be 
dragons or desperadoes. Death, should it come, is transitory — just re-run the 
program to live again! 

Experienced adventurers make detailed maps of each world as an aid to ef- 
fecting a solution, but you can omit this exercise if your memory is excep- 
tional. Express your wishes with one- or two-word commands like, "LOOK", 
"DROP KNIFE", or "GET RUBY". Use "I" to get an inventory of your 
possessions. The introduction to each Adventure explains this more fully. 

To start up the Adventure, just run the program called "INTRO" or "IN- 
TRO. BAS" on your disk, or select the Adventure from the DV menu. On 
cassette, the INTRO program is the one just before the Adventure, which is 
the last program on the tape. 



The Adventure runs in any Atari with at least 32K RAM (40K disk). 



Here are the encrypted hints for Arabian Nights, 
the Adventure in Issue 42. 

To kill the dragon: DVZI ZMW IFY CSV IRMT. 

To kill the serpent: DVZI ZMW IFY GSV ZNFOVG. 

To kill the snake: FHV GSV HVIKVMG PROOVI. 

To kill the Roc: FHV GSV HXRNRGZI. 

To kill the cyclops: HSLLG SRN DRGS GSV WRZNLMW ZMW GSV 

HORMTHSLG. 

To get past the vultures: WIRMP LNZI'H DZGVI. 

To kill the red genie: LUUVI SRN Z TLYOVG UFOO LU VO SZYRY'H 

DZGVI. 

To kill Roxor: IFY GSV NZTRX OZNK. 

To get the eggshell: XFG GSV VTT DRGS GSV HXRNRGZI. 

Open doors and gates by: SRGGRMT GSV TLMT. 

To escape from Roxor's secret room: SRG GSV TLMT. 

To get the magical cloak: TREV GSV TLYOVG GL GSV HSLKPVVKVI 

ZUGVI PROORMT GSV IVW TVMRV. 

In sandy places: WRT ULI ZOO BLF'IV DLIGS. 

To fly the magic carpet: HGZMW LM RG ZMW HZB ZDZB. 
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General Information About Listings, SWAT, and 
Magnetic IVIedia 

These are the standard procedures for the programs published in 
SoftSide Selections. Sometinnes, a particular program does not iend 
itseif to these procedures. Always read the specific instructions ac- 
companying a program. They will instruct you if there are any 
variances from the following procedures. Also, bacl< issues of Soft- 
Side Magazine may differ in some details. 

SWAT 
TAKLE 




SWAT Tables 



At the conclusion of each program listing in SoftSide Selections, 
we include a SWAT (Strategic Weapon Against Typos) Table. SWAT 
for the Atari appeared in SoftSide Issue #30. If you missed Issue #30, 
we'll send you a free reprint of SWAT. Send a self-addressed, stamped 
envelope to: SoftSide Publications, Inc. 

Department SWAT 

10 Northern Blvd. 

Northwood Executive Park 

Amherst, NH 03031 

Be sure to tell us that you have an Atari computer. 



Magnetic Media 

Disks do not carry the DOS.SYS and DUP.SYS files, and are not 
"bootable." First, boot a disk with DOS on it, then insert the SoftSide 
Selections disk, and run "D:COVER". Our disks are in DOS 2 format. 

Tapes GLOAD in the normal manner. If you encounter difficulty, try 
this procedure: 

1. POKE 54018,54 

2. Turn up the volume on your TV. 

3.. Type GLOAD, and press RETURN once. 

4. Press the play button, and listen. 

5. When you hear the steady leader tone, press RETURN again. 
Side two of the tape is a duplicate of side one. 

SoftSide Selections disks and tapes are duplicated on reliable, pro- 
fessional equipment. Bad copies are exceedingly rare. Nevertheless, 
the trip through the mail occasionally results in damage to the sen- 
sitive magnetic media. If, after a reasonable number of attempts on 
well-adjusted, clean equipment, you are unable to load a program, 
return it to us along with an exact explanation of your protiiem. We 
will send you a replacement. 

SoftSide Selections media are not copy protected. We urge you to 
make an archival backup copy of your disk or tape as soon as you 
receive it, as our replacement policy is valid only for 30 days. Please 
resist the urge to give away copies of copyrighted material. 
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Line Listings 

Line listings are in standard 38-column format, with special conven- 
tions for representing unprintable characters: 

You must type underlined characters, including blank spaces, in in- 
verse video. 

When graphics or control (CTRL) characters are included in a string 
(between quotation marks), a nearby REM statement will make note of 
it; in such cases, graphics characters appear as the corresponding 
lower-case letters, and control characters appear as the correspond- 
ing unshifted key symbols. For example: the lower-case letter s 
represents a graphic cross, which you type by pressing the S key while 
holding down the CTRL key; the = sign represents CTRL-down-arrow, 
which you type by pressing and releasing the ESC key, then pressing 
the = key while holding down CTRL. For more information about 
entering control characters, refer to Appendix F and the back cover of 
your Atari BASIC Reference Manual. 

There are two exceptions to our above convention: A clear-screen 
character (ESC SHIFT-CLEAR) appears in our listings as a right-hand 
brace, which looks like this: }. The other exception is that a shifted = 
sign appears as a broken vertical line: 1 . 

Occasionally, a program will demand that we vary from these con- 
ventions. In such a case, a nearby REM statement or the program's in- 
troductory article will clearly note the special instructions. 

Be sure to read each program's explanatory article — it may con- 
tain special, important information about the program. Also, use 
SWAT on your program, and get the free reprint if you don't have 
SWAT. 



System Requirements 



The necessary memory and other equipment you need to run a pro- 
gram are listed in the introductory paragraph of the article for each 
program. (Also see the SoftSide Adventure Series elsewhere in this 
booklet.) 
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Here's SoftSide Selections, the handy, pull-out 
booklet with program listings for your Atari 
400/800/1200 computer. This issue, SoftSide 
Selections for the Atari features: 

• Relaaax... — SoftSide has brought you many 
programs that may keep you up at night. Now, two 
psychologists have developed this program to 
help you relax. 

• Math Quiz — This colorful educational pro- 
gram can help kids practice their arithmetic. 

• Atari DV Bonus Program: Chemistry Assistant — 

This educational program performs over ten com- 
mon chemical calculations. 

• The SoftSide Adventure Series — 

by David Pleacher. 

You are in high school, and who said that going 
to high school is not an adventure? Go to all your 
classes, and complete all the activities before 
earning credit. Don't upset the assistant principal, 
or you might get suspended — or even expelled! 
Satisfy your teachers' requirements, pass six sub- 
jects, and graduate! 



SOFTSIDE PUBLICATIONS, INC. 

Amherst, New Hampshire 



